# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1545263396 18000
# Node ID 6ee2d1d3d487de9aae545f994faa18f90019b51d
# Parent  c2c6f95f56358d9091292e3c68238695e2a3c113
Whops

diff -r c2c6f95f5635 -r 6ee2d1d3d487 lisp/clhs.lisp
--- 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))))