pLISP
© '98 Thomas Mahler

System specific definitions

Set global constants

 (printdepth 40)  // set max list depth for printing of expressions. 
 (printlength 40) // set max list length for printing

Define Inspector Function

Inspect is used by the GUI based Lisp Inspector to display the value of lisp objects.
Be very careful in redefining inspect because it is not handled by a safe Thread. I.e. defining a non terminating version of inspect will result in a complete blocking of the system.

 (define inspect (lambda (x val foo bar)
   (setq val (pp (eval x))) // use pretty printing for inspector
    // (setq val (eval x))  // don't use pp
   val))

Define my-hook function

The my-hook function is called from the context menu in the integrated editor.
You may redefine my-hook according to your needs.
my-hook is properly threaded, so there is no tasking problem here

 (define my-hook (lambda ()
   '(my-hook may be redefined as you like to perform some lisp jobs;
     Have a look in "system.lsp" for definition of my-hook)))

define restore function to re-load fastload files

Restore loads the previously generated lisp fast load file.
The fasl file contains the complete environment state when the dump was performed.
Default for file parameter is "dump.fasl", which is also used by (dump)

 (define restore (lambda (file)
   (if (equal file nil)
      (setq file "dump.fasl")
      nil)
   (load file)
   (cons 'restored (cons file ()))))