Changeset 15541


Ignore:
Timestamp:
11/29/21 14:13:11 (12 months ago)
Author:
Mark Evenson
Message:

improve cl:dribble

This version save almost everything to the specified file
creating a new internal REPL for dribbling and also ends smoothly
when (dribble) is called

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/dribble.lisp

    r11391 r15541  
    7272     (setf *standard-input* new-standard-input)
    7373     (setf *standard-output* new-standard-output)
    74      (setf *error-output* new-error-output)))
     74     (setf *error-output* new-error-output)
     75           ;; Starting a new internal REPL for dribbling
     76           (loop do
     77             (format t "~a> " (package-name *package*))
     78             (with-simple-restart (abort "Error detected in dribbling")
     79               (handler-case
     80                 (let ((input (read *standard-input*)))
     81                   (print (eval input) *standard-output*)
     82                   (terpri)
     83                   (when (equal input '(dribble))
     84                     (return)))
     85                 (error (c)
     86                   (format *error-output* "~a~%" c)
     87                   (error c)))))))
    7588  ((null *dribble-stream*)
    7689   (error "Not currently dribbling."))
Note: See TracChangeset for help on using the changeset viewer.