Index: /branches/ide-1.0/ccl/hemlock/src/interp.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/interp.lisp	(revision 6655)
+++ /branches/ide-1.0/ccl/hemlock/src/interp.lisp	(revision 6656)
@@ -505,5 +505,3 @@
 ;;; EXIT-HEMLOCK  --  Public
 ;;;
-(defun exit-hemlock (&optional (value t))
-  "Exit from ED, returning the specified value."
-  (throw 'hemlock-exit value))
+