/usr/share/common-lisp/source/pg/cmucl-install-subsystem.lisp is in cl-pg 1:20061216-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | ;;; cmucl-install-subsystem.lisp
;;
;;
;; Loading this into CMUCL will install pg.lisp as a CMUCL subsystem,
;; that can be loaded with
;;
;; (require :pg)
;;
;; Note that the user running CMUCL needs to have write access to the
;; subsystems directory (so you may need to run this as root).
(let ((fasl-1 (compile-file "defpackage" :load t))
(fasl-2 (compile-file "sysdep" :load t))
(fasl-3 (compile-file "pg")))
(with-open-file (out (compile-file-pathname "library:subsystems/pg-library")
:direction :output
:element-type '(unsigned-byte 8)
:if-exists :supersede)
(dolist (f (list fasl-1 fasl-2 fasl-3))
(with-open-file (in f
:direction :input
:element-type '(unsigned-byte 8))
(loop
:with buffer = (make-array 1024 :element-type '(unsigned-byte 8))
:for n = (read-sequence buffer in)
:until (= n 0)
:do (write-sequence buffer out :end n))))))
;; EOF
|