Changeset 224

Timestamp:

Jan 5, 2004, 6:30:21 PM (21 years ago)

Author:

Gary Byers

Message:

SUBTAG-INSTANCE in TARGET package.

File:

• trunk/ccl/lib/read.lisp (modified) (1 diff)

trunk/ccl/lib/read.lisp

@@ -208 +208 @@
                                        (dotimes (i (uvsize tree))
                                          (declare (fixnum i))
-                                         (unless (and (eql i 0) (eql subtype arch::subtag-instance))
+                                         (unless (and (eql i 0) (eql subtype target::subtag-instance))
                                            (setf (uvref tree i) (circle-subst (uvref tree i))))))
                                      (locally