diff --git a/code/describe.lisp b/code/describe.lisp index 57351f119eb105b61bae94d51ef07abec1c63ff7..889a2272ebda9249a67c7a1987e9c13a874e2d58 100644 --- a/code/describe.lisp +++ b/code/describe.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/describe.lisp,v 1.24 1993/05/29 07:00:59 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.25 1993/06/23 19:32:27 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -396,7 +396,7 @@ ;; Describe the function cell. (cond ((macro-function x) (describe-function (macro-function x) :macro x)) - ((special-form-p x) + ((special-operator-p x) (desc-doc x 'function "Special form")) ((fboundp x) (describe-function (fdefinition x) :function x))) diff --git a/code/ntrace.lisp b/code/ntrace.lisp index 75cb55628217273212590d6402cc64305842cf68..487dce2adda565b21828bd71e48c862ccc0784af 100644 --- a/code/ntrace.lisp +++ b/code/ntrace.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/ntrace.lisp,v 1.10 1992/12/08 20:10:16 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.11 1993/06/23 19:33:02 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -141,7 +141,7 @@ (res named-p) (typecase x (symbol - (cond ((special-form-p x) + (cond ((special-operator-p x) (error "Can't trace special form ~S." x)) ((macro-function x)) (t