source: trunk/abcl/contrib/asdf-install/dead-letter.lisp @ 12487

Last change on this file since 12487 was 12487, checked in by Mark Evenson, 13 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.