From af3f297e0fb11e6975b41b0d574b09077266a5e3 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Mon, 6 Apr 1998 02:44:33 +0000 Subject: [PATCH] The third object argument to class-cell-typep need no longer be an optional argument - was just optional for bootstrapping. --- code/pred.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/code/pred.lisp b/code/pred.lisp index b483a0260..ea45dfd55 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))) -- GitLab