Ignore:
Timestamp:
Feb 17, 2009, 4:19:15 AM (11 years ago)
Author:
rme
Message:

Merge trunk changes through r11740.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.3/source/level-0/l0-pred.lisp

    r11639 r11747  
    10131013(defun structure-typep (thing type)
    10141014  (if (= (the fixnum (typecode thing)) target::subtag-struct)
    1015 
    1016 
    10171015    (let* ((types (%svref thing 0)))
    10181016      (if (typep type 'symbol)
Note: See TracChangeset for help on using the changeset viewer.