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