Merge pull request #1 from skypher/master

pull from upstream master

backends.lisp

@@ -12,7 +12,7 @@
   (error "~S is a required argument" name))
 
 (defclass backend ()
-  ((name :accessor name :initform "Unknown" :initarg :name :type symbol)
+  ((name :accessor name :initform :|Unknown| :initarg :name :type symbol)
    (magic-number :accessor magic-number :initarg :magic-number :type integer)
    (compatible-magic-numbers :accessor compatible-magic-numbers
                              :initarg :compatible-magic-numbers :type list)

package.lisp

@@ -53,6 +53,14 @@
   #+ecl (:import-from #:clos
                       #:generic-function-name
                       #:compute-slots
+		      #:slot-definition
+		      #:slot-definition-name
+		      #:slot-definition-allocation
+		      #:slot-definition-initform
+		      #:slot-definition-initargs
+		      #:slot-definition-writers
+		      #:slot-definition-readers
+		      #:slot-definition-type
                       #:class-direct-default-initargs
                       #:class-direct-slots
                       #:class-direct-superclasses

sbcl/custom-xml.lisp

@@ -16,23 +16,23 @@
 
 (defstore-xml (obj single-float stream)
   (with-tag ("SINGLE-FLOAT" stream)
-    (princ-and-store "BITS" (sb-kernel::single-float-bits obj)
+    (princ-and-store "BITS" (sb-kernel:single-float-bits obj)
                      stream)))
 
 (defrestore-xml (single-float stream)
-  (sb-kernel::make-single-float
-   (restore-first (get-child "BITS" stream))))
+   (sb-kernel:make-single-float
+    (restore-first (get-child "BITS" stream))))
 
 (defstore-xml (obj double-float stream)
   (with-tag ("DOUBLE-FLOAT" stream)
-    (princ-and-store "HIGH-BITS" (sb-kernel::double-float-high-bits obj)
+    (princ-and-store "HIGH-BITS" (sb-kernel:double-float-high-bits obj)
                      stream)
-    (princ-and-store "LOW-BITS" (sb-kernel::double-float-low-bits obj)
+    (princ-and-store "LOW-BITS" (sb-kernel:double-float-low-bits obj)
                      stream)))
 
 (defrestore-xml (double-float stream)
-  (sb-kernel::make-double-float (restore-first (get-child "HIGH-BITS" stream))
-                                (restore-first (get-child "LOW-BITS" stream))))
+  (sb-kernel:make-double-float (restore-first (get-child "HIGH-BITS" stream))
+			       (restore-first (get-child "LOW-BITS" stream))))
 
 
-;; EOF
+;; EOF