diff --git a/decons.lisp b/decons.lisp index 80b4d1a..ee92a0b 100644 --- a/decons.lisp +++ b/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)