diff --git a/code/defstruct.lisp b/code/defstruct.lisp index 98882a1ff18cae6ca0ae158a58b3a4bf2589696e..42fdf49e17cec316a3f617e01938d3875a000a17 100644 --- a/code/defstruct.lisp +++ b/code/defstruct.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.19 1990/12/19 00:23:49 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.20 1991/01/03 13:14:47 ram Exp $ ;;; ;;; Defstruct structure definition package (Mark II). ;;; Written by Skef Wholey and Rob MacLachlan. @@ -640,23 +640,6 @@ (eq (elt (the ,ltype object) ,(dd-offset defstruct)) ',name)))))))) - -;;; Structure-Predicate -- Internal -;;; -;;; The typep transform in typetran calls this function when it encounters -;;; an unknown symbol type specifier. If the referred-to type is in fact a -;;; structure type that has a predicate, then we open-code the normal case of -;;; an exact match, and otherwise call the predicate. -;;; -(defun structure-predicate (object type) - (let ((def (info type structure-info type))) - (if (and def (eq (dd-type def) 'structure) (dd-predicate def)) - `(and (structurep ,object) - (if (eq (structure-ref ,object 0) ',type) - t - (,(dd-predicate def) ,object))) - `(lisp::structure-typep ,object ',type)))) - ;;; Random sorts of stuff.