/[slime]/slime/swank-allegro.lisp
ViewVC logotype

Diff of /slime/swank-allegro.lisp

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

revision 1.122 by heller, Fri Jan 9 07:12:56 2009 UTC revision 1.123 by heller, Sat Jan 10 12:17:41 2009 UTC
# Line 693  Line 693 
693       (mp:process-wait-with-timeout "receive-if" 0.5       (mp:process-wait-with-timeout "receive-if" 0.5
694                                     #'mp:gate-open-p (mailbox.gate mbox)))))                                     #'mp:gate-open-p (mailbox.gate mbox)))))
695    
696    (defimplementation set-default-initial-binding (var form)
697      (setq excl:*cl-default-special-bindings*
698            (acons var form excl:*cl-default-special-bindings*)))
699    
700  (defimplementation quit-lisp ()  (defimplementation quit-lisp ()
701    (excl:exit 0 :quiet t))    (excl:exit 0 :quiet t))
702    

Legend:
Removed from v.1.122  
changed lines
  Added in v.1.123

  ViewVC Help
Powered by ViewVC 1.1.5