home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM 1995 Fall / PD-ROM F95.toast / Programming / Programming Languages / XLisp 2.1e3 ƒ / init.lsp next >
Encoding:
Lisp/Scheme  |  1993-09-15  |  782 b   |  20 lines  |  [TEXT/ttxt]
  1. ; When xlisp launches, it looks for a file named "init.lsp" in the
  2. ; same folder, and executes everything in it if it finds one.
  3.  
  4. (print "You can modify init.lsp to run things on startup.")
  5. (print "Be sure to read the release notes!")
  6.  
  7. (defun strcat (&rest str)    ; backwards compatibility (you should use concatenate)
  8.        (apply #'concatenate 'string str))
  9.  
  10. (setq *features* (list :xlisp))
  11. ; Differences in various implementations, needed by some example programs.
  12. (when (fboundp 'get-internal-run-time) 
  13.       (setq *features* (cons :times *features*)))
  14. (when (fboundp 'generic) 
  15.       (setq *features* (cons :generic *features*)))
  16. (when (fboundp 'find-if)
  17.       (setq *features* (cons :posfcns *features*)))
  18. (when (fboundp 'log)
  19.       (setq *features* (cons :math *features*)))
  20.