src/plugins/lisp/scl/scl-init.lisp

   1
   2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   3 ;; MODULE      : scl-init.lisp
   4 ;; DESCRIPTION : Initialize scl plugin
   5 ;; COPYRIGHT   : (C) 2005 Douglas Crosher
   6 ;;
   7 ;; This software falls under the GNU general public license version 3 or later.
   8 ;; It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE
   9 ;; in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>.
  10 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  11
  12 (setf tm-data-begin "\x02")
  13 (setf tm-data-end "\x05")
  14
  15 (setf *prompt*
  16         (concatenate 'string tm-data-begin "channel:prompt" tm-data-end
  17            "SCL> " tm-data-end))
  18
  19 (defun tm-debug-prompt ()
  20         (princ (concatenate 'string tm-data-begin "channel:prompt"
  21                   tm-data-end "SCL-Debug] " tm-data-end))
  22         (force-output))
  23
  24 (setf debug:*debug-prompt* #'tm-debug-prompt)
  25
  26 (load "lisp/tmlib.lisp")