/[cmucl]/src/code/pred.lisp
ViewVC logotype

Diff of /src/code/pred.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by ram, Fri Feb 8 13:34:47 1991 UTC revision 1.17 by wlott, Tue Mar 19 18:51:08 1991 UTC
# Line 296  Line 296 
296           (satisfies           (satisfies
297            (unless (and (listp hairy-spec) (= (length hairy-spec) 2))            (unless (and (listp hairy-spec) (= (length hairy-spec) 2))
298              (error "Invalid type specifier: ~S" hairy-spec))              (error "Invalid type specifier: ~S" hairy-spec))
299            (if (funcall (cadr hairy-spec) object) t)))))            (let ((fn (cadr hairy-spec)))
300                (if (funcall (typecase fn
301                               (function fn)
302                               (symbol (symbol-function fn))
303                               (t
304                                (coerce fn 'function)))
305                             object)
306                    t
307                    nil))))))
308      (function-type      (function-type
309       (error "Function types are not a legal argument to TYPEP:~%  ~S"       (error "Function types are not a legal argument to TYPEP:~%  ~S"
310              (type-specifier type)))))              (type-specifier type)))))

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

  ViewVC Help
Powered by ViewVC 1.1.5