1 ;; $Id: build.cl,v 1.1 2002/10/15 12:23:03 kevin Exp $
12 (compile-file-if-needed (concatenate 'string f ".cl"))
13 (load (concatenate 'string f ".fasl")))
15 (with-open-file (out "pxml.fasl"
16 :element-type '(unsigned-byte 8)
19 :if-does-not-exist :create)
20 (dolist (file filenames)
21 (with-open-file (in (concatenate 'string file ".fasl")
22 :element-type '(unsigned-byte 8))
23 (format t "~%; ~s" file)
24 (let ((buf (make-array 2048 :element-type '(unsigned-byte 8))))
25 (loop as x = (read-sequence buf in)
27 do (write-sequence buf out :end x)))))))