|
Last change
on this file was
12487,
checked in by Mark Evenson, 16 years ago
|
|
Port of ASDF-INSTALL under 'contrib/asdf-install'.
'abcl.contrib' will package ASDF-INSTALL in dist/abcl-contrib.jar.
We only have one contrib 'asdf-install'. It is not expected to work
well under Windows at the moment.
To use ASDF-INSTALL, use the following in your ~/.abclrc:
(require 'asdf)
(pushnew "jar:file:${dist.dir}/abcl-contrib.jar!/asdf-install/" asdf:*central-registry*)
Then issuing
CL-USER> (require 'asdf-install)
will load ASDF-INSTALL.
A file ~/.asdf-install can contain customizations to help ASDF-INSTALL
find the programs 'tar' and 'gpg'. 'tar' is searched for in
asdf-install:*shell-search-paths*. The location of 'gpg' can be
customized by setting *gpg-command* to a string containing the file.
This behavior should be rationalized in the future.
ASDF-INSTALL tested under OSX.
|
|
File size:
1.2 KB
|
| Line | |
|---|
| 1 | ;;;; dead letter |
|---|
| 2 | |
|---|
| 3 | #+Old |
|---|
| 4 | (defun load-system-definition (sysfile) |
|---|
| 5 | (declare (type pathname sysfile)) |
|---|
| 6 | #+asdf |
|---|
| 7 | (when (or (string-equal "asd" (pathname-type sysfile)) |
|---|
| 8 | (string-equal "asdf" (pathname-type sysfile))) |
|---|
| 9 | (installer-msg t "Loading system ~S via ASDF." (pathname-name sysfile)) |
|---|
| 10 | ;; just load the system definition |
|---|
| 11 | (load sysfile) |
|---|
| 12 | #+Ignore |
|---|
| 13 | (asdf:operate 'asdf:load-op (pathname-name sysfile))) |
|---|
| 14 | |
|---|
| 15 | #+mk-defsystem |
|---|
| 16 | (when (string-equal "system" (pathname-type sysfile)) |
|---|
| 17 | (installer-msg t "Loading system ~S via MK:DEFSYSTEM." (pathname-name sysfile)) |
|---|
| 18 | (mk:load-system (pathname-name sysfile)))) |
|---|
| 19 | |
|---|
| 20 | #+Old |
|---|
| 21 | ;; from download-files-for-package |
|---|
| 22 | (with-open-file |
|---|
| 23 | #-(and allegro-version>= (not (version>= 8 0))) |
|---|
| 24 | (o file-name :direction :output |
|---|
| 25 | #+(or :clisp :digitool (and :lispworks :win32)) |
|---|
| 26 | :element-type |
|---|
| 27 | #+(or :clisp :digitool (and :lispworks :win32)) |
|---|
| 28 | '(unsigned-byte 8) |
|---|
| 29 | #+:sbcl #+:sbcl :external-format :latin1 |
|---|
| 30 | :if-exists :supersede) |
|---|
| 31 | ;; for Allegro versions < 8.0, the above #+sbcl #+sbcl |
|---|
| 32 | ;; will cause an error [2006/01/09:rpg] |
|---|
| 33 | #+(and allegro-version>= (not (version>= 8 0))) |
|---|
| 34 | (o file-name :direction :output :if-exists :supersede)) |
|---|
Note: See
TracBrowser
for help on using the repository browser.
