hg.stevelosh.com > dotfiles

--- a/lisp/clhs.lisp	Wed Dec 19 17:44:03 2018 -0500
+++ b/lisp/clhs.lisp	Wed Dec 19 18:49:56 2018 -0500
@@ -134,6 +134,6 @@
                         arguments)
                 (setf arguments (list (read-line))))
               (unless (run target)
-                (print-error-and-exit
+                (adopt:print-error-and-exit
                   (format nil "Symbol not found: ~A~%" target)))))))
     (error (c) (adopt:print-error-and-exit c))))
author	Steve Losh <steve@stevelosh.com>
date	Wed, 19 Dec 2018 18:49:56 -0500
parents	c2c6f95f5635
children	c6afac579697
branches/tags	(none)
files	lisp/clhs.lisp