*** empty log message ***

1 files changed, 64 insertions, 0 deletions

diff --git a/app-emacs/ilisp-cvs/files/ilisp.asd b/app-emacs/ilisp-cvs/files/ilisp.asd
new file mode 100644
index 000000000000..376463b47595
--- /dev/null
+++ b/app-emacs/ilisp-cvs/files/ilisp.asd
@@ -0,0 +1,64 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          ilisp.asd
+;;;; Purpose:       ASDF system definition file for ilisp package
+;;;; Programmer:    Kevin M. Rosenberg
+;;;; Date Started:  March 2003
+;;;;
+;;;; $Id: ilisp.asd,v 1.1 2004/01/17 20:58:20 mkennedy Exp $
+;;;;
+;;;; UFFI users are granted the rights to distribute and use this software
+;;;; as governed by the terms of the ILISP license.
+;;;; *************************************************************************
+
+(defpackage #:ilisp-system (:use #:cl #:asdf))
+(in-package #:ilisp-system)
+
+(defun symlink-ilisp-fasls ()
+  (let ((fasls-path
+	 (merge-pathnames
+	  (make-pathname :directory '(:relative "ilisp"))
+	  c-l-c::*fasl-root*))
+	(dest-path (make-pathname :directory '(:absolute "usr" "lib" "ilisp"))))
+    (format *trace-output* "~&Symlinking fasls~%")
+    (dolist (fasl (directory
+		   (make-pathname :defaults fasls-path
+				  :name :wild
+				  :type :wild)))
+      (format t "~S~%" fasl)
+      (when (pathname-type fasl) ;; Crude check to avoid matching a directory
+	(let ((symlink (make-pathname
+			:directory (pathname-directory dest-path)
+			:name (pathname-name fasl)
+			:type (pathname-type fasl))))
+	  (when (probe-file symlink)
+	    (delete-file symlink))
+	(let ((cmd (format nil "ln -sf ~A ~A"
+			   (namestring fasl) (namestring symlink))))
+	  (run-shell-command cmd))
+	)))))
+
+#+(or allegro clisp lispworks cmu openmcl sbcl)
+(defsystem :ilisp
+  :name "ilisp"
+  :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
+  :licence "ILISP license"
+  :description "System loader for ILISP inferior-mode lisp interface"
+
+  :perform (compile-op :after (op ilisp)
+		       (symlink-ilisp-fasls))
+
+  :components
+  ((:file "ilisp-pkg")
+   (:file "cl-ilisp" :depends-on ("ilisp-pkg"))
+   #+allegro (:file "allegro" :depends-on ("cl-ilisp"))
+   #+clisp (:file "cl-chs-init" :depends-on ("cl-ilisp"))
+   #+cmu (:file "cmulisp" :depends-on ("cl-ilisp"))
+   #+lispworks (:file "lispworks" :depends-on ("cl-ilisp"))
+   #+openmcl (:file "openmcl" :depends-on ("cl-ilisp"))
+   #+sbcl (:file "sbcl" :depends-on ("cl-ilisp"))
+   ))
+
+