From 45d689d57f7abdf35718df8ca2c1920ca1866bc9 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 8 Mar 1992 18:31:58 +0000 Subject: [PATCH] Added support for the FDEFN type. --- code/pred.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/code/pred.lisp b/code/pred.lisp index 6cc3dfab8..d6e2639f5 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.24 1992/03/04 17:42:43 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.25 1992/03/08 18:31:58 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -56,6 +56,7 @@ compiled-function-p complexp double-float-p + fdefn-p fixnump floatp functionp @@ -161,6 +162,7 @@ (weak-pointer 'weak-pointer) (code-component 'code-component) (lra 'lra) + (fdefn 'fdefn) (scavenger-hook 'scavenger-hook) (t (warn "Can't figure out the type of ~S" object) @@ -232,6 +234,7 @@ (weak-pointer (weak-pointer-p object)) (code-component (code-component-p object)) (lra (lra-p object)) + (fdefn (fdefn-p object)) (scavenger-hook (scavenger-hook-p object)) (structure (structurep object)))) (numeric-type -- GitLab