home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / lispmachine / lmilod.lsp < prev    next >
Text File  |  2020-01-01  |  3KB  |  65 lines
  1. ;;; -*- Mode:LISP; Package:USER; Base:10 -*-
  2.  
  3. ;******************************************************************************
  4. ; Copyright (c) 1984, 1985 by Lisp Machine Inc.
  5. ; Symbolics-specific portions Copyright (c) 1985 by Honeywell, Inc.
  6. ; Permission to copy all or part of this material is granted, provided
  7. ; that the copies are not made or distributed for resale, and the 
  8. ; copyright notices and reference to the source file and the software
  9. ; distribution version appear, and that notice is given that copying is
  10. ; by permission of Lisp Machine Inc.  LMI reserves for itself the 
  11. ; sole commercial right to use any part of this KERMIT/H19-Emulator
  12. ; not covered by any Columbia University copyright.  Inquiries concerning
  13. ; copyright should be directed to Mr. Damon Lawrence at (213) 642-1116.
  14. ;
  15. ; Version Information:
  16. ;      LMKERMIT 1.0     --      Original LMI code, plus edit ;1; for 3600 port
  17. ;
  18. ; Authorship Information:
  19. ;      Mark David (LMI)           Original version, using KERMIT.C as a guide
  20. ;      George Carrette (LMI)      Various enhancements
  21. ;      Mark Ahlstrom (Honeywell)  Port to 3600 (edits marked with ";1;" comments)
  22. ;
  23. ; Author Addresses:
  24. ;      George Carrette     ARPANET: GJC at MIT-MC
  25. ;
  26. ;      Mark Ahlstrom       ARPANET: Ahlstrom at HI-Multics
  27. ;                          PHONE:   (612) 887-4006
  28. ;                          USMAIL:  Honeywell MN09-1400
  29. ;                                   Computer Sciences Center
  30. ;                                   10701 Lyndale Avenue South
  31. ;                                   Bloomington, MN  55420
  32. ;******************************************************************************
  33.  
  34.  
  35. #|
  36. To use this version of KERMIT on an LMI lispmachine:
  37. [A] restore to a convenient directory, <X>.
  38. [B] (load "<X>LMILOD")
  39. [C] (make-system 'lmi-kermit :compile)        ;1; I think you mean lmi-kermit, not kermit
  40.  
  41. For the 3600, we should probably break this up into the standard
  42. sys:site;system-name.system and sys:site;logical-host.translations
  43. and system-name.sysdcl files to make this even easier.  In fact,
  44. it won't seem to work correctly on the 3600 unless we do so...
  45.  
  46. So for 3600, see the files lm3600.sys and lm3600.tra instead of lmilod.
  47.  
  48. |#
  49.  
  50. #-3600
  51. (let ((p fs:fdefine-file-pathname))        ;1; this gives the generic pathname of 
  52.                         ;1; this file (the one being loaded)
  53.   (if (send p :send-if-handles :translated-pathname)
  54.       (setq p (send p :send-if-handles :translated-pathname)))
  55.   (setq p (send p :new-pathname
  56.                     :name :wild
  57.                     :type :wild
  58.                     :version :wild))
  59.   (fs:set-logical-pathname-host "LMI-KERMIT"
  60.                                         :physical-host (send p :host)
  61.                                         :translations `(("SOURCE;" ,(send p :string-for-host))
  62.                             ("PATCH;"  ,(send p :string-for-host)))))
  63.  
  64. (si:set-system-source-file "LMI-KERMIT" "LMI-KERMIT:SOURCE;LMISYS")
  65.