Skip to content
Snippets Groups Projects
Commit 90eb7234 authored by wlott's avatar wlott
Browse files

Typo.

parent fc15b025
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.14 1990/10/25 23:44:55 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.15 1990/10/27 15:27:46 wlott Exp $
;;;
;;; Predicate functions for CMU Common Lisp.
;;;
......@@ -288,7 +288,7 @@
(not
(unless (and (listp hairy-spec) (= (length hairy-spec) 2))
(error "Invalid type specifier: ~S" hairy-spec))
(not (%%typep object (cadr (specifier-type hairy-spec)))))
(not (%%typep object (specifier-type (cadr hairy-spec)))))
(satisfies
(unless (and (listp hairy-spec) (= (length hairy-spec) 2))
(error "Invalid type specifier: ~S" hairy-spec))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment