source: trunk/wood.lisp @ 3

Revision 3, 2.6 KB checked in by gz, 9 years ago (diff)

Recovered version 0.961 from Sheldon Ball <s.ball@…>

  • Property svn:eol-style set to native
Line 
1;;;-*- Mode: Lisp; Package: (WOOD) -*-
2
3;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4;;
5;; wood.lisp
6;; This file exists so that you can (require "WOOD" "ccl:wood;wood")
7;; You may need to edit the definition of the "wood" logical host
8;; in the file "load-wood.lisp"
9;;
10;; Copyright © 1996 Digitool, Inc.
11;; Copyright © 1992-1995 Apple Computer, Inc.
12;; All rights reserved.
13;; Permission is given to use, copy, and modify this software provided
14;; that Digitool is given credit in all derivative works.
15;; This software is provided "as is". Digitool makes no warranty or
16;; representation, either express or implied, with respect to this software,
17;; its quality, accuracy, merchantability, or fitness for a particular
18;; purpose.
19;;
20
21;;;;;;;;;;;;;;;;;;;;;;;;;;
22;;
23;; Modification History
24;;
25;; -------------  0.961
26;; 09/20/96 bill  resignal the error in the handler-case if not a wrong fasl version error
27;; -------------- 0.96
28;; -------------- 0.95
29;; -------------- 0.94
30;; 03/09/96 bill  say ccl::*.fasl-pathname* instead of ".fasl".
31;; -------------- 0.93
32;; 08/11/95 bill  Handle wrong fasl version errors
33;; -------------- 0.9
34;; 03/09/94 bill  wood::load-wood -> (find-symbol "LOAD-WOOD" :wood)
35;; -------------- 0.8
36;; -------------- 0.6
37;; 08/31/92 bill  new file
38;;
39
40(in-package :cl-user)
41
42(labels ((load-it ()
43           (let* ((path (or *load-pathname* *loading-file-source-file*))
44                  (load-wood-path
45                   (make-pathname :host       (pathname-host path)
46                                  :device     (pathname-device path)
47                                  :directory  (pathname-directory path)
48                                  :name       "load-wood"
49                                  :defaults   nil)))
50             (handler-case
51               (compile-load load-wood-path :verbose t)
52               (simple-error (condition)
53                (if (equalp "Wrong FASL version."
54                            (simple-condition-format-string condition))
55                  (progn
56                    (format t "~&;Deleting FASL file from other MCL version...")
57                    (delete-file (merge-pathnames load-wood-path ccl::*.fasl-pathname*))
58                    (return-from load-it (load-it)))
59                  (error condition)))))))
60  (load-it))
61               
62
63; Wood package is created by "load-wood.lisp"
64; find-symbol so we can compile this file before loading that one.
65(funcall (find-symbol "LOAD-WOOD" :wood))       ; does (provide "WOOD")
66
67
68
69;;;    1   3/10/94  bill         1.8d247
70;;;    2   3/23/95  bill         1.11d010
Note: See TracBrowser for help on using the repository browser.