Changeset 10321 for trunk/source/library


Ignore:
Timestamp:
Aug 4, 2008, 11:18:27 AM (11 years ago)
Author:
gb
Message:

Remove training wheels, start bumping fasl version.

File:
1 edited

Legend:

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

    r10320 r10321  
    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
    15901583  `(car ,cell))
    15911584
    15921585(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
    16001586  `(cdr ,cell))
    16011587
Note: See TracChangeset for help on using the changeset viewer.