home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / LISP Related / U. Mass AI & LISP Tools / MODULES / DNET / DNET-Compile.lisp < prev    next >
Encoding:
Text File  |  1990-06-24  |  1.1 KB  |  40 lines  |  [TEXT/CCL ]
  1. ;;; DNET compilation and testing. Dan Suthers 24-Jun-90 23:56:11
  2.  
  3. (in-package :DNET)
  4.  
  5. (defun PATH-TO (file) 
  6.   (concatenate 'string 
  7.                #+:CCL "ccl;MODULES:DNET:"
  8.                #+HP  "$tee/modules/dnet/"
  9.                #+VAX "cai$disk:[suthers.lisp.modules.dnet]"
  10.                #+:TI "suthers.modules;"
  11.                #-(or :CCL HP VAX :TI) ""
  12.                file))
  13.  
  14. (defun LISP-EXTENSION (file)
  15.   (concatenate 'string 
  16.                file
  17.                #+HP ".l"
  18.                #-HP ".lisp"))
  19.  
  20. (format T "~&Dribbling to ~A ..." (path-to "test.txt"))
  21. (dribble (path-to "test.txt"))
  22.  
  23. (format T "~&Compiling ~A ..." (path-to (lisp-extension "DNET")))
  24. (compile-file (path-to (lisp-extension "DNET")))
  25.  
  26. (format T "~&Loading ~A ..." (path-to "DNET"))
  27. (load (path-to "DNET"))
  28.  
  29. (format T "~&Loading Tests in ~A ..." (path-to (lisp-extension "dnet-test")))
  30. (load (path-to (lisp-extension "dnet-test")))
  31.  
  32. (format T "~&Loading ~A ..." (path-to (lisp-extension "dnet-analyze")))
  33. (load (path-to (lisp-extension "dnet-analyze")))
  34.  
  35. (format T "~&Analyzing the TEST DNET:~%")
  36. (dnet:analyze-dnet 'user::test)
  37.  
  38. (dribble)
  39.  
  40. ;;; EOF