diff --git a/code/pred.lisp b/code/pred.lisp index b483a0260fcbe546d380c42ecef3b8d77ecb24be..ea45dfd55074cca17670c59431dd001475006bb0 100644 --- a/code/pred.lisp +++ b/code/pred.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.46 1998/03/21 08:12:02 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.47 1998/04/06 02:44:33 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -332,8 +332,7 @@ ;;; Do type test from a class cell, allowing forward reference and ;;; redefinition. ;;; -;;; 2-Feb-97 add third arg optional for back compatibility and boot -(defun class-cell-typep (obj-layout cell &optional object) +(defun class-cell-typep (obj-layout cell object) (let ((class (class-cell-class cell))) (unless class (error "Class has not yet been defined: ~S" (class-cell-name cell)))