build.cl

   1 ;; $Id$
   2
   3 (in-package :user)
   4
   5 (let ((filenames
   6        (list
   7         "pxml0"
   8         "pxml1"
   9         "pxml3"
  10         "pxml2")))
  11   (dolist (f filenames)
  12     (compile-file-if-needed (concatenate 'string f ".cl"))
  13     (load (concatenate 'string f ".fasl")))
  14
  15   (with-open-file (out "pxml.fasl"
  16                    :element-type '(unsigned-byte 8)
  17                    :direction :output
  18                    :if-exists :supersede
  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)
  26               until (= x 0)
  27               do (write-sequence buf out :end x)))))))
  28