Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Remove references to unexisting (removed long ago) variable tg-data::…

…*db*
  • Loading branch information...
commit cb3d1c4124c1db7078f2616e5ae5687946a04bb7 1 parent 54a662a
@avodonosov avodonosov authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 data/data.lisp
View
4 data/data.lisp
@@ -25,7 +25,7 @@
;;; DB operations
-(defun add-run (run-info &optional (db *db*))
+(defun add-run (run-info db)
"Deprecated. Modifies DB destructively."
(push run-info (getf db :runs)))
@@ -205,7 +205,7 @@ NEW-KEY-VALS are new key-values for descriptions of that test runs."
(print-test-run out test-run (+ indent 8))))
(format out "))"))
-(defun save-db (&optional (db *db*) (stream-or-path *standard-db-file*))
+(defun save-db (db &optional (stream-or-path *standard-db-file*))
(with-open-file (out stream-or-path
:direction :output
:element-type 'character ;'(unsigned-byte 8) + flexi-stream
Please sign in to comment.
Something went wrong with that request. Please try again.