Changeset 11851


Ignore:
Timestamp:
Mar 27, 2009, 10:06:59 PM (10 years ago)
Author:
gz
Message:

Make sure type-predicate is a symbol before calling it (cf standard-char)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/X86/x862.lisp

    r11849 r11851  
    90739073          (x862-form seg vreg xfer form)
    90749074          (let* ((ok (backend-get-next-label)))
    9075             (if (and (symbolp typespec) (type-predicate typespec))
     9075            (if (and (symbolp typespec) (non-nil-symbolp (type-predicate typespec)))
    90769076              ;; Do this so can compile the lisp with typechecking even though typep
    90779077              ;; doesn't get defined til fairly late.
Note: See TracChangeset for help on using the changeset viewer.