Changeset 7247 for trunk/ccl/level-1/sysutils.lisp

Timestamp:

Sep 18, 2007, 2:17:58 AM (13 years ago)

Author:

palter

Message:

Return all three values from CCL::PRINT-DEFERRED-WARNINGS

File:

• trunk/ccl/level-1/sysutils.lisp (modified) (1 diff)

trunk/ccl/level-1/sysutils.lisp

@@ -542 +542 @@
               (multiple-value-setq (harsh any file) (signal-compiler-warning w init file harsh any))
               (setq init nil))))))
-    (values (values any harsh parent))))
+    (values any harsh parent)))
 
 (defun print-nested-name (name-list stream)