mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-20 11:32:35 -08:00
Code Issues Projects Releases Packages Wiki Activity

DRIBBLE only takes one argument and ECL's extension was not very useful anyway.

Browse source
This commit is contained in:
jjgarcia 2005-10-24 08:36:20 +00:00
parent 4e86c768f5
commit 718c0a1f90
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/lsp/iolib.lsp
View file

@ -194,7 +194,7 @@ printed. If FORMAT-STRING is NIL, however, no prompt will appear."
(defvar *dribble-namestring* nil)
(defvar *dribble-saved-terminal-io* nil)
(defun dribble (&optional (pathname "DRIBBLE.LOG" psp) (f :supersede))
(defun dribble (&optional (pathname "DRIBBLE.LOG" psp))
"Args: (&optional filespec)
If FILESPEC is given, starts recording the interaction to the specified file.
FILESPEC may be a symbol, a string, a pathname, or a file stream. If FILESPEC
@ -213,7 +213,7 @@ is not given, ends the recording."
(t
(let* ((namestring (namestring pathname))
(stream (open pathname :direction :output
:if-exists f
:if-exists :supersede
:if-does-not-exist :create)))
(setq *dribble-namestring* namestring
*dribble-stream* stream