/[cmucl]/src/code/lispinit.lisp
ViewVC logotype

Diff of /src/code/lispinit.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.63 by pw, Sat Apr 7 14:10:58 2001 UTC revision 1.64 by pw, Sun Jul 8 17:41:41 2001 UTC
# Line 433  Line 433 
433    
434  ;;;; Miscellaneous external functions:  ;;;; Miscellaneous external functions:
435    
436    (defvar *cleanup-functions* nil
437      "Functions to be invoked during cleanup at Lisp exit.")
438    
439  ;;; Quit gets us out, one way or another.  ;;; Quit gets us out, one way or another.
440    
441  (defun quit (&optional recklessly-p)  (defun quit (&optional recklessly-p)
# Line 440  Line 443 
443    non-Nil."    non-Nil."
444    (if recklessly-p    (if recklessly-p
445        (unix:unix-exit 0)        (unix:unix-exit 0)
446        (throw '%end-of-the-world 0)))        (progn
447            (mapc (lambda (fn) (ignore-errors (funcall fn))) *cleanup-functions*)
448            (throw '%end-of-the-world 0))))
449    
450    
451  #-mp ; Multi-processing version defined in multi-proc.lisp.  #-mp ; Multi-processing version defined in multi-proc.lisp.
# Line 455  Line 460 
460    (multiple-value-bind (sec usec)    (multiple-value-bind (sec usec)
461      (if (integerp n)      (if (integerp n)
462          (values n 0)          (values n 0)
463          (multiple-value-bind (sec frac)(truncate n)          (multiple-value-bind (sec frac) (truncate n)
464            (values sec(truncate frac 1e-6))))            (values sec (truncate frac 1e-6))))
465      (unix:unix-select 0 0 0 0 sec usec))      (unix:unix-select 0 0 0 0 sec usec))
466    nil)    nil)
467    

Legend:
Removed from v.1.63  
changed lines
  Added in v.1.64

  ViewVC Help
Powered by ViewVC 1.1.5