move lgx (debugging logger) to cl-scopes/util

decons.lisp

@@ -7,7 +7,6 @@
   (:export #:rapply #:rreduce #:radd #:rmul #:rsub #:rdiv
            #:default-deviation #:l2-loss #:trial
            #:line
-           #:lgx
            #:*obj* #:*trials* #:try))
 
 (in-package :decons)
@@ -67,14 +66,6 @@
 (defmethod print-object ((tr trial) stream)
   (shape:print-slots tr stream 'theta 'loss))
 
-;;;; logging (printing) functions for debugging purposes
-
-(defun lgx (op)
-  (lambda (&rest args)
-   (let ((r (apply op args)))
-    (format t "~&(~a ~a) = ~a~%" op args r)
-    r)))
-
 ;;;; parameterized target functions
 
 (defun line (x)