Author: lgiessmann Date: Tue May 25 13:04:57 2010 New Revision: 294

Log: fixed a compilation problem in the json-importer with sbcl 1.0.34.0.debian

Modified: trunk/src/json/json_importer.lisp

Modified: trunk/src/json/json_importer.lisp ============================================================================== --- trunk/src/json/json_importer.lisp (original) +++ trunk/src/json/json_importer.lisp Tue May 25 13:04:57 2010 @@ -242,8 +242,8 @@ (json-to-scope (getf json-decoded-list :scopes))) (instance-of (psis-to-topic (getf json-decoded-list :type)))) - (declare (list json-decoded-list)) - (declare (TopicC top)) + ;(declare (list json-decoded-list)) causes problems with sbcl 1.0.34.0.debian + ;(declare (TopicC top)) (unless namevalue (error "A name must have exactly one namevalue")) (let ((name (make-construct 'NameC