Common Lisp 学习笔记

未完待续

带提示的输入

(defun promp-read (promt)
       (format *query-io* "~a:" prompt)
       (force-output *query-io*)
       (read-line *query-io*))

Yes or No: y-or-n-p

(loop (format t "~a" "in the loop!")
        (if (not (y-or-n-p "yes?[y/n]"))(return)))

Save files

(defun save-db(filename)
       (with-open-file ( out filename
                 :direction :output
                 :if-exists :supersded)
         (with-standard-io-syntax 
           (print *db* out))))