diff --git a/code/pred.lisp b/code/pred.lisp index 534216c76ff8837bfa3b3e014ad6a062312a95b3..5beba4eacc2aa8482144f3fcb684ba1ee22ffeb7 100644 --- a/code/pred.lisp +++ b/code/pred.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.28.1.4 1993/02/08 22:24:32 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.28.1.5 1993/02/10 23:40:13 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -18,7 +18,7 @@ (in-package "KERNEL") (export '(%instancep instance fixnump bignump bitp ratiop weak-pointer-p - %typep)) + %typep class-typep)) (in-package "SYSTEM") (export '(system-area-pointer system-area-pointer-p)) @@ -371,7 +371,7 @@ #-ns-boot ((%instancep x) (let* ((layout-x (%instance-layout x)) - (length (layout-length layout-x))) + (len (layout-length layout-x))) (and (%instancep y) (eq layout-x (%instance-layout y)) (structure-class-p (layout-class layout-x))