stassats wrote
on February 17th, 2012 at 09:08 pm

I have
(defun :asd (system)
  (format t "Loading system: ~a~%" system)
  (and (asdf:oos 'asdf:load-op system :verbose nil)
       t))

(defmacro :dbg (x &optional tag)
  `(let ((results (multiple-value-list ,x)))
     (format *debug-io* "~&~@[~a ~]~{~s~^, ~}~%" ,tag results)
     (finish-output *debug-io*)
     (values-list results)))

(Read Comments)

No HTML allowed in subject

  
 
   
 

Notice! This user has turned on the option that logs your IP address when posting. 

(will be screened)

August 2014

S M T W T F S
     12
3456789
10111213141516
17181920212223
24252627282930
31      
Powered by LiveJournal.com