Changeset 425

Timestamp:

Jan 30, 2004, 11:44:06 AM (21 years ago)

Author:

Gary Byers

Message:

CLOSE just does CALL-NEXT-METHOD, which might work now.

File:

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

trunk/ccl/level-1/l1-sysio.lisp

@@ -471 +471 @@
           (delete-file original-name)))
       (setq *open-file-streams* (nremove s *open-file-streams*))
-      (call-next-method)
-      t)))
+      (call-next-method))))
 
 (defmethod select-stream-class ((class file-stream) in-p out-p char-p)