home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / source / oodleutl.cpt / oodles-of-utils / NotInROM / NotInROM.lisp < prev   
Encoding:
Text File  |  1992-07-14  |  1.5 KB  |  43 lines
  1. ;; -*- package: ccl -*-
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;; NotInROM.Lisp
  4. ;;
  5. ;; Copyright ⌐ 1991 Northwestern University Institute for the Learning Sciences
  6. ;; All Rights Reserved
  7. ;;
  8. ;; author: Michael S. Engber
  9. ;;
  10. ;; Provides Not in ROM Routines
  11. ;; requiring this file loads in all currently implemented Not in ROM routines
  12. ;; 
  13. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  14.  
  15. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  16. ;;
  17. ;; Modification History
  18. ;;
  19. ;; 02/21/92 bill pathname to provide to avoid *module-search-path* hacking.
  20. ;;                Remove reference to "oou" logical host.
  21. ;;               :defaults nil for make-pathname.
  22. ;;               (provide :NotInROM)
  23. ;;
  24.  
  25. (in-package :ccl)
  26.  
  27. (eval-when (:compile-toplevel :load-toplevel :execute)
  28.   (require :NotInROM-u (make-pathname :name      "NotInROM-u"
  29.                                       :host      (pathname-host *loading-file-source-file*)
  30.                                       :directory (pathname-directory *loading-file-source-file*)
  31.                                       :defaults  nil)))
  32.  
  33. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  34.  
  35. (dolist (file (directory (merge-pathnames "+*.lisp" *loading-file-source-file*)))
  36.   (load (make-pathname :name      (pathname-name file)
  37.                        :directory (pathname-directory file)
  38.                        :defaults  nil)))
  39.  
  40. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  41.  
  42. (provide :NotInROM)
  43.