From 357b46841121f5dc21ea904c365302452ce0a14f Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 23 Jun 1993 19:33:02 +0000 Subject: [PATCH] special-form-p -> special-operator-p --- code/describe.lisp | 4 ++-- code/ntrace.lisp | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/code/describe.lisp b/code/describe.lisp index 57351f119..889a2272e 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 75cb55628..487dce2ad 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 -- GitLab