Commit 503c607c authored by Dave Cooper's avatar Dave Cooper
Browse files

fixed glisp:source-pathname for CCL, cleaned up couple things in timer

parent 983eb838
"(\"Dave\" \"dave@genworks.com\" \"0:05\" 3646788388 3646788395 \"Hey now\" \"Dave3646788388\")""(\"Dave\" \"dave@genworks.com\" \"0:05\" 3646788451 3646788458 \"Hey new\" \"Dave3646788451\")""(\"Dave\" \"dave@genworks.com\" \"0:05\" 3646788451 3646788458 \"Hey new\" \"Dave3646788451\")""(\"Dave\" \"dave@genworks.com\" \"0:05\" 3646788451 3646788458 \"Hey new\" \"Dave3646788451\")""(\"Dave\" \"dave@genworks.com\" \"0:05\" 3646788451 3646788458 \"Hey new\" \"Dave3646788451\")""(\"Dave\" \"dave@genworks.com\" \"0:05\" 3646788694 3646788701 \"Hey n3w\" \"Dave3646788694\")""(\"Dave\" \"dave@genworks.com\" \"0:05\" 3646788694 3646788701 \"Hey n3w\" \"Dave3646788694\")"
\ No newline at end of file
"(\"Dave\" \"david.cooper@genworks.com\" \"0:5\" 3646787794 3646787800 \"hey now\" \"Dave3646787794\")""(\"Dave\" \"david.cooper@genworks.com\" \"0:5\" 3646787794 3646787800 \"hey now\" \"Dave3646787794\")"
\ No newline at end of file
......@@ -2,7 +2,9 @@
(defparameter *source-path*
(make-pathname :directory (pathname-directory (glisp:source-pathname))
:name nil :type nil))
:name nil :type nil))
(defun initialize ()
(publish-directory
:prefix "/timer-static/"
......@@ -55,7 +57,7 @@
:name :email :time-set :universal-time-start
:universal-time-end :content :id)))
(mapcar
(lambda (x y) (the (set-slot! x y)))
(lambda (x y) (the (set-slot! x y :warn-on-non-toplevel? nil)))
fields-list deserialization)))
; Creates the HTML representation of this journal entry
(to-html
......@@ -317,10 +319,13 @@
; Called when the button for recording the journal entry is pressed.
; It records the journal entry's content and then writes it to a file.
(record-journal-entry
()
()
(print-variables (the background-minutes) (the background-seconds))
(the toggle-update-flag!)
(if (and (eq (the timer-form-min value) "0")
(eq (the timer-form-sec value) "0"))
(if (and (zerop (the background-minutes))
(zerop (the background-seconds)))
(progn (the current-journal-entry (set-slot! :content
(the journal-entry-form value)))
(with-open-file
......
......@@ -339,7 +339,7 @@
#+allegro excl:*source-pathname*
#+lispworks dspec:*source-pathname*
#+sbcl (error "need source-pathname in sbcl~%")
#+ccl ccl:*loading-file-source-file*
#+ccl (translate-logical-pathname ccl:*loading-file-source-file*)
#+clisp (error "need source-pathname in ccl~%")
#+abcl (extensions:source-pathname)
)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment