Changeset 295 for branches/new-datamodel/src/json

Timestamp:

05/25/10 18:10:18 (15 years ago)

Author:

lgiessmann

Message:

fixed a problem with sbcl/asdf and the sb-impl::*default-external-format* --> now it is set to :utf-8 during the loading process and then set to its old value

File:

• branches/new-datamodel/src/json/json_importer.lisp (modified) (1 diff)

branches/new-datamodel/src/json/json_importer.lisp ¶

@@ -245 +245 @@
           (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 
                                   :start-revision start-revision