From 320ee6028ef5e08a3dd7e7f165e10e1d4dda2a73 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 24 Nov 1991 17:43:21 +0000 Subject: [PATCH] Fixed DOCUMENTATION and %SET-DOCUMENTATION to allow any symbol for the documentation kind. --- compiler/fndb.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp index 8b79f6220..c341f4dd2 100644 --- a/compiler/fndb.lisp +++ b/compiler/fndb.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.31 1991/11/16 15:49:08 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.32 1991/11/24 17:43:21 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -967,7 +967,7 @@ (values (or pathname null) boolean boolean)) (defknown disassemble (callable &optional stream) void) -(defknown documentation (symbol (member variable function structure type setf)) +(defknown documentation ((or symbol cons) symbol) (or string null) (flushable)) @@ -1080,8 +1080,7 @@ (defknown %scharset (simple-string index character) character (unsafe)) (defknown %sp-set-definition (symbol function) function (unsafe)) (defknown %sp-set-plist (symbol t) t (unsafe)) -(defknown %set-documentation - (symbol (member variable function structure type setf) (or string null)) +(defknown %set-documentation ((or symbol cons) symbol (or string null)) (or string null) ()) (defknown %setnth (index list t) t (unsafe)) -- GitLab