Changeset 310

Timestamp:

Jan 17, 2004, 7:36:31 PM (21 years ago)

Author:

Gary Byers

Message:

NRECONC uses ENDP. %MAKE-DISPLACED-ARRAY always displaces to what the user
said to displace to.

File:

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

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

@@ -311 +311 @@
 (defun nreconc (x y)
   "Returns (nconc (nreverse x) y)"
-  (do ((1st (cdr x) (if (atom 1st) 1st (cdr 1st)))
+  (do ((1st (cdr x) (if (endp 1st) 1st (cdr 1st)))
        (2nd x 1st)              ;2nd follows first down the list.
        (3rd y 2nd))             ;3rd follows 2nd down the list.
@@ -590 +590 @@
           (declare (fixnum dflags))
           (when (or (logbitp $arh_adjp_bit dflags)
+                    t
                     (progn
+                      #+nope
                       (setq target (%svref displaced-to ppc32::arrayH.data-vector-cell)
                             real-offset (+ offset (%svref displaced-to ppc32::arrayH.displacement-cell)))
-                      (logbitp $arh_disp_bit dflags)))
+                      (logbitp $arh_disp_bit dflags)
+                      #-nope t))
             (setq flags (bitset $arh_disp_bit flags))))
         (setq vect-subtype (%array-header-subtype displaced-to)))