Trailing-Edge
-
PDP-10 Archives
-
clisp
-
clisp/upsala/array.cmp
There are no other files named array.cmp in the archive.
;COMPARISON OF SS:<CLISP.UPSALA>ARRAY.CLISP.1 AND PS:<VICTOR.CLISP>ARRAY.CLISP.16
;OPTIONS ARE /3
**** FILE SS:<CLISP.UPSALA>ARRAY.CLISP.1, 7-14 (8785)
(+ (the fixnum (header-ref ,array %array-displacement-slot)) result)
**** FILE PS:<VICTOR.CLISP>ARRAY.CLISP.16, 7-14 (8785)
(+ (the fixnum (header-ref ,array %array-displacement-slot))
result)
***************
**** FILE SS:<CLISP.UPSALA>ARRAY.CLISP.1, 7-61 (10543)
(header-ref array %array-displacement-slot))
**** FILE PS:<VICTOR.CLISP>ARRAY.CLISP.16, 7-62 (10552)
(header-ref
array %array-displacement-slot))
***************
**** FILE SS:<CLISP.UPSALA>ARRAY.CLISP.1, 9-40 (16906)
(defun vector-push-extend (new-el array &optional (extension 42))
**** FILE PS:<VICTOR.CLISP>ARRAY.CLISP.16, 9-40 (16925)
(defun vector-push-extend
(new-el array &optional (extension (max 10 (min 1000 (length array)))))
***************
**** FILE SS:<CLISP.UPSALA>ARRAY.CLISP.1, 9-64 (18023)
(+ fill-pointer (header-ref array %array-displacement-slot))
**** FILE PS:<VICTOR.CLISP>ARRAY.CLISP.16, 9-65 (18077)
(+ fill-pointer
(header-ref array %array-displacement-slot))
***************
**** FILE SS:<CLISP.UPSALA>ARRAY.CLISP.1, 9-80 (18735)
(header-ref array %array-displacement-slot))))))
**** FILE PS:<VICTOR.CLISP>ARRAY.CLISP.16, 9-82 (18799)
(header-ref
array %array-displacement-slot))))))
***************