home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / CONTRIB / GNU-COMM / GCL-1.0 / GCL-1 / gcl-1.0 / unixport / sys-init.lsp < prev   
Encoding:
Text File  |  1989-10-28  |  160 b   |  6 lines
  1. (in-package 'si)
  2. (let ((mss (si::string-concatenate *system-directory*
  3.                      "message")))
  4.   (if (probe-file mss)
  5.       (system (format nil "cat ~a " mss))))
  6.