Changeset 10301


Ignore:
Timestamp:
Aug 4, 2008, 8:23:07 AM (11 years ago)
Author:
gb
Message:

Check for CONSP at runtime (for bootstrapping) in ISTRUCT-CELL-NAME
and ISTRUCT-CELL-INFO. (Note that this breaks the use of SETF
with either macro.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/library/lispequ.lisp

    r10111 r10301  
    15811581
    15821582(defmacro istruct-cell-name (cell)
     1583  #-later
     1584  (let* ((temp (gensym)))
     1585    `(let* ((,temp ,cell))
     1586      (if (atom ,temp)
     1587        ,temp
     1588        (car ,temp))))
     1589  #+later
    15831590  `(car ,cell))
    15841591
    15851592(defmacro istruct-cell-info (cell)
     1593  #-later
     1594  (let* ((temp (gensym)))
     1595    `(let* ((,temp ,cell))
     1596      (if (consp ,temp)
     1597        (cdr ,temp)
     1598        (%class.own-wrapper (find-class ,temp)))))
     1599  #+later
    15861600  `(cdr ,cell))
    15871601
Note: See TracChangeset for help on using the changeset viewer.