Changeset 10319


Ignore:
Timestamp:
Aug 4, 2008, 10:47:13 AM (11 years ago)
Author:
gb
Message:

Compiler-macro on REGISTER-ISTRUCT-CELL.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/optimizers.lisp

    r10235 r10319  
    20872087        (and (integerp ,val) (not (< ,val 0)))))))
    20882088
     2089(define-compiler-macro register-istruct-cell (&whole w arg)
     2090  (if (and (quoted-form-p arg)
     2091           (cadr arg)
     2092           (typep (cadr arg) 'symbol))
     2093    `',(register-istruct-cell (cadr arg))
     2094    w))
     2095
     2096
     2097
    20892098(provide "OPTIMIZERS")
    20902099
Note: See TracChangeset for help on using the changeset viewer.