Changeset 732

Timestamp:

Mar 27, 2004, 2:48:48 AM (21 years ago)

Author:

Gary Byers

Message:

Fix error message typo when allocating GFs.

File:

• trunk/ccl/level-1/l1-clos.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-clos.lisp

@@ -1280 +1280 @@
           (unless (or (eq gf-class *standard-generic-function-class*)
                       (subtypep gf-class *generic-function-class*))
-            (error "Class ~S is not a subclass of ~S")
-            gf-class *generic-function-class*)))
+            (error "Class ~S is not a subclass of ~S"
+                   gf-class *generic-function-class*))))
       (unless (eq mcomb missing)
         (unless (typep mcomb 'method-combination)
@@ -1467 +1467 @@
                       #'%%0-arg-dcode
                       0
-                      ;; Set the AOK (&allow-other-keys) bit without
-                      ;; setting the KEYS bit, to indicate that we
-                      ;; don't know anything about this gf's
-                      ;; lambda-list.
                       (logior (ash 1 $lfbits-gfn-bit)
-                              (ash 1 $lfbits-aok-bit)))))
-    (setf (gf.hash fn) (strip-tag-to-fixnum fn)
+                              (ash 1 $lfbits-aok-bit)))))
+         (setf (gf.hash fn) (strip-tag-to-fixnum fn)
           (slot-vector.instance slots) fn
           (%gf-dispatch-table-gf dt) fn)