Help for this page

Select Code to Download


  1. or download this
       (defun format-error (string &rest args)     ;Example 
       (error nil "~?~%~V@T!~%~3@T\"~A\"~%" 
              string args (+ *ctl-index* 3) *ctl-string*))
  2. or download this
      (format stream
          ;; Are you ready for this one?
...
          ;; Is that clear?
          ;; I omitted the sprintf-style arguments here - MJD
  )