From e418553ed4ea0a2e9cf33b694d9bc4459976626b Mon Sep 17 00:00:00 2001 From: cer <cer> Date: Tue, 2 Jun 1992 08:26:29 +0000 Subject: [PATCH] Initial revision --- demo/cload-demos.lisp | 51 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 51 insertions(+) create mode 100644 demo/cload-demos.lisp diff --git a/demo/cload-demos.lisp b/demo/cload-demos.lisp new file mode 100644 index 00000000..d0c1c1d3 --- /dev/null +++ b/demo/cload-demos.lisp @@ -0,0 +1,51 @@ +;; -*- mode: common-lisp; package: user -*- +;; +;; -[]- +;; +;; copyright (c) 1985, 1986 Franz Inc, Alameda, CA All rights reserved. +;; copyright (c) 1986-1992 Franz Inc, Berkeley, CA All rights reserved. +;; +;; The software, data and information contained herein are proprietary +;; to, and comprise valuable trade secrets of, Franz, Inc. They are +;; given in confidence by Franz, Inc. pursuant to a written license +;; agreement, and may be stored and used only in accordance with the terms +;; of such license. +;; +;; Restricted Rights Legend +;; ------------------------ +;; Use, duplication, and disclosure of the software, data and information +;; contained herein by any agency, department or entity of the U.S. +;; Government are subject to restrictions of Restricted Rights for +;; Commercial Software developed at private expense as specified in FAR +;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as +;; applicable. +;; +;; $fiHeader: cload-demos.cl,v 1.1 91/07/25 19:03:22 cer Exp $ + +(defvar *demo-files* + '("packages" + "aaai-demo-driver" + "cad-demo" + "thinkadot" + "graphics-demos" + "address-book" + "listener" + "navfun" + "navdata" + "puzzle")) + +(defun compile-and-load-demos (&key forcep + (directory + (make-pathname + :directory (pathname-directory + #.(truename + excl::*source-pathname*))))) + (mapcar #'(lambda (name) + (let ((name (merge-pathnames + directory + name))) + (if forcep + (compile-file name) + (excl::compile-file-if-needed name)) + (load name))) + *demo-files*)) -- GitLab