From c7f8ad1ddeef0dc7e74b58b953fc385eb073f2a3 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sun, 6 May 1990 18:56:46 +0000
Subject: [PATCH] Fixed up info for COMPILE and COMPILE-FILE args/values.

---
 compiler/fndb.lisp | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp
index 4eca57607..51abe3103 100644
--- a/compiler/fndb.lisp
+++ b/compiler/fndb.lisp
@@ -955,11 +955,12 @@
 ;;;; In the "Miscellaneous" Chapter.
 
 ;;; ### Compiler interface non-standard...
-(defknown compile (symbol &optional list t) (or function null))
+(defknown compile (symbol &optional (or list function null))
+  (values (or function null) boolean boolean))
 (defknown compile-file
-  (&optional filename &key (output-file filename) (error-file filename)
-	     (lap-file filename) (errors-to-terminal t) (load t))
-  void)
+  ((or filename list) &key (output-file filename) (error-file filename)
+   (trace-file filename) (errors-output t) (load t) (block-compile t))
+  (values (or pathname null) boolean boolean))
 (defknown disassemble (callable &optional stream) void)
 
 (defknown documentation (symbol (member variable function structure type setf))
-- 
GitLab