home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / o / ops5.zip / OPS.LIS < prev    next >
Lisp/Scheme  |  1992-05-31  |  1KB  |  43 lines
  1. ;
  2. ;************************************************************************
  3. ;
  4. ;    VPS2 -- Interpreter for OPS5
  5. ;
  6. ;
  7. ;
  8. ; This Common Lisp version of OPS5 is in the public domain.  It is based
  9. ; in part on based on a Franz Lisp implementation done by Charles L. Forgy
  10. ; at Carnegie-Mellon University, which was placed in the public domain by
  11. ; the author in accordance with CMU policies.  This version has been
  12. ; modified by George Wood, Dario Giuse, Skef Wholey, Michael Parzen,
  13. ; and Dan Kuokka.
  14. ;
  15. ; This code is made available is, and without warranty of any kind by the
  16. ; authors or by Carnegie-Mellon University.
  17. ;
  18.  
  19. ;;;; This file performs the necessary initialization of the OPS interpreter.
  20.  
  21.  
  22. (in-package "OPS")
  23.  
  24. (defun ops-init ()
  25.   ; Allows ^ , { , and } operators to be right next to another symbol.
  26.   (set-macro-character #\{ #'(lambda (s c)
  27.                    (declare (ignore s c))
  28.                    '\{))
  29.   (set-macro-character #\} #'(lambda (s c)
  30.                    (declare (ignore s c))
  31.                    '\}))
  32.   (set-macro-character #\^ #'(lambda (s c)
  33.                    (declare (ignore s c))
  34.                    '\^))
  35.   (backup-init)
  36.   (compile-init)
  37.   (main-init)
  38.   (match-init)
  39.   (io-init)
  40.   (rhs-init))
  41.  
  42. (ops-init)
  43.