Changeset 11737


Ignore:
Timestamp:
Feb 16, 2009, 1:34:42 PM (10 years ago)
Author:
gb
Message:

Just lose some whitespace in STRUCTURE-TYPEP (e.g., cosmetic change only.)

File:
1 edited

Legend:

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

    r11639 r11737  
    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.