source: trunk/source/tools/asdf-install/dead-letter.lisp @ 9218

Last change on this file since 9218 was 9218, checked in by gb, 12 years ago

newer upstream version

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.