From 19ca8adbfce2fa5d5d078a692516ff76d9483870 Mon Sep 17 00:00:00 2001
From: Helmut Merz <helmutm@cy55.de>
Date: Mon, 26 May 2025 09:04:31 +0200
Subject: [PATCH] move lgx (debugging logger) to cl-scopes/util

---
 decons.lisp | 9 ---------
 1 file changed, 9 deletions(-)

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)