Changeset 14125

Timestamp:

Aug 5, 2010, 6:17:53 AM (14 years ago)

Author:

Gary Byers

Message:

FASL-SCAN-DISPATCH: ppc64 tagging isn't like the other children.

File:

• trunk/source/lib/nfcomp.lisp (modified) (1 diff)

trunk/source/lib/nfcomp.lisp

@@ -1240 +1240 @@
         (#.target::tag-fixnum
          (fasl-scan-fixnum exp))
-        (#.target::tag-list (fasl-scan-list exp))
+        (#+ppc64-target #.target::fulltag-cons
+         #-ppc64-target #.target::tag-list (fasl-scan-list exp))
         #+ppc32-target
         (#.ppc32::tag-imm)