From 582af4b3861f105ce6695f4014d969df9687c342 Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Fri, 24 Jan 2003 16:05:50 +0000
Subject: [PATCH] Functions and instances are constantp.

From Gerd Moellmann.
---
 code/eval.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/code/eval.lisp b/code/eval.lisp
index 16c5a4f7c..b153b2931 100644
--- a/code/eval.lisp
+++ b/code/eval.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.33 2001/12/13 01:04:20 pmai Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.34 2003/01/24 16:05:50 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -477,7 +477,9 @@
     (array t)
     (symbol
      (eq (info variable kind object) :constant))
-    (list (eq (car object) 'quote))))
+    (list (eq (car object) 'quote))
+    (function t)
+    (instance t)))
 
 
 ;;; Function invocation:
-- 
GitLab