Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

Diff of /src/code/print.lisp [edbf1a] .. [a8c066] Maximize Restore

  Switch to side-by-side view

--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -1851,9 +1851,7 @@
   nil)
 
 (defun output-fun (object stream)
-  (let* ((*print-length* 4)  ; in case we have to..
-         (*print-level* 3)  ; ..print an interpreted function definition
-         (name (%fun-name object))
+  (let* ((name (%fun-name object))
          (proper-name-p (and (legal-fun-name-p name) (fboundp name)
                              (eq (fdefinition name) object))))
     (print-unreadable-object (object stream :identity (not proper-name-p))