Commit aeb9dfee authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Added what-implementation asd file.

parent 3faa53e9
......@@ -84,8 +84,8 @@ wang.html:wang.html.in
help::
@printf $(HELPFORMAT) what-implementation "Builds the what-implementation executable."
wi what-implementation:what-implementation.lisp
echo '(load (compile-file "what-implementation.lisp"))' | ccl -n
( echo '(load (compile-file "what-implementation.lisp"))';\
echo '(com.informatimago.small-cl-pgms.what-implementation:generate-server-executable "what-implementation")' ) | ccl -n
help::
@printf $(HELPFORMAT) install-what-implementation "Install the what-implementation executable."
......
;;;; -*- mode:lisp;coding:utf-8 -*-
;;;;**************************************************************************
;;;;FILE: com.informatimago.small-cl-pgms.what-implementation.asd
;;;;LANGUAGE: Common-Lisp
;;;;SYSTEM: Common-Lisp
;;;;USER-INTERFACE: NONE
;;;;DESCRIPTION
;;;;
;;;; This system loads a tool to help choosing a Common Lisp implementation.
;;;;
;;;;AUTHORS
;;;; <PJB> Pascal J. Bourguignon <[email protected]>
;;;;MODIFICATIONS
;;;; 2014-12-23 <PJB> Added asd file.
;;;;BUGS
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2005 - 2014
;;;;
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, or
;;;; (at your option) any later version.
;;;;
;;;; This program is distributed in the hope that it will be useful,
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;;; GNU Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;**************************************************************************
(asdf:defsystem :com.informatimago.small-cl-pgms.what-implementation
:name "com.informatimago.small-cl-pgms.what-implementation"
:description "A tool to help choosing a Common Lisp implementation."
:author "Pascal J. Bourguignon"
:version "1.0.0"
:license "GPL3"
:depends-on ()
:components ((:file "what-implementation")))
;;;; THE END ;;;;
......@@ -42,9 +42,10 @@
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>
;;;;**************************************************************************
(defpackage "COM.INFORMATIMAGO.WHAT-IMPLEMENTATION"
(defpackage "COM.INFORMATIMAGO.SMALL-CL-PGMS.WHAT-IMPLEMENTATION"
(:use "COMMON-LISP")
(:export "CHOOSE-AN-IMPLEMENTATION")
(:export "CHOOSE-AN-IMPLEMENTATION" "SELECTION-LOOP"
"GENERATE-SERVER-EXECUTABLE")
(:documentation "
Helps a newbie choose a CL implementations by selecting criteria.
Please contribute to the selection criteria and other implementation
......@@ -53,9 +54,11 @@ attributes.
Evaluate:
(com.informatimago.what-implementation:choose-an-implementation)
(com.informatimago.what-implementation:selection-loop)
and answer the questions.
(com.informatimago.what-implementation:generate-server-executable \"what-cl\")
Copyright Pascal J. Bourguignon 2012 - 2012
......@@ -72,7 +75,7 @@ GNU Affero General Public License for more details.
You should have received a copy of the GNU Affero General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>
"))
(in-package "COM.INFORMATIMAGO.WHAT-IMPLEMENTATION")
(in-package "COM.INFORMATIMAGO.SMALL-CL-PGMS.WHAT-IMPLEMENTATION")
(defparameter *version* "1.0.1")
......@@ -954,10 +957,10 @@ CLASSIFIED
(defun save-program-and-quit (&key
(name "unnamed-lisp-program")
(toplevel (lambda ()))
(documentation "Undocumented program.")
(start-package "COMMON-LISP-USER"))
(name "unnamed-lisp-program")
(toplevel (lambda ()))
(documentation "Undocumented program.")
(start-package "COMMON-LISP-USER"))
(declare (ignorable documentation))
#+ccl
......@@ -1014,11 +1017,14 @@ CLASSIFIED
(quit))
#-testing
(eval-when (:load-toplevel :execute)
(save-program-and-quit :name "what-implementation"
(defun generate-server-executable (name)
(save-program-and-quit :name name
:toplevel (function main)
:documentation "Helps the user choose a Common Lisp implementation."))
;; #-testing
;; (eval-when (:load-toplevel :execute)
;; (generate-server-executable "what-implementation"))
;;;; THE END ;;;;
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment