cco/decons
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Helmut Merz 2025-05-26 09:04:31 +02:00
parent fc83700642
commit 19ca8adbfc
1 changed files with 0 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
decons.lisp
View file

@ -7,7 +7,6 @@
(:export #:rapply #:rreduce #:radd #:rmul #:rsub #:rdiv (:export #:rapply #:rreduce #:radd #:rmul #:rsub #:rdiv
#:default-deviation #:l2-loss #:trial #:default-deviation #:l2-loss #:trial
#:line #:line
#:lgx
#:*obj* #:*trials* #:try)) #:*obj* #:*trials* #:try))
(in-package :decons) (in-package :decons)
@ -67,14 +66,6 @@
(defmethod print-object ((tr trial) stream) (defmethod print-object ((tr trial) stream)
(shape:print-slots tr stream 'theta 'loss)) (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 ;;;; parameterized target functions
(defun line (x) (defun line (x)