[isidorus-cvs] r294 - trunk/src/json

[Lukas Giessmann]

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