From ed4a87e1a11ed195d6b614afadaade3ef9d40c79 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sun, 22 Dec 1991 03:38:40 +0000 Subject: [PATCH] Fixed syntax in ED arg types. --- compiler/fndb.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp index 72e95ab58..353988af8 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.38 1991/12/20 14:56:47 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.39 1991/12/22 03:38:40 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1006,7 +1006,8 @@ (defknown inspect (t) (values)) (defknown room (&optional (member t nil :default)) void) -(defknown ed (&optional (or symbol cons filename) &key init display) t) +(defknown ed (&optional (or symbol cons filename) &key (:init t) (:display t)) + t) (defknown dribble (&optional filename &key (if-exists t)) t) (defknown apropos (stringlike &optional packagelike t) (values)) -- GitLab