Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
503c607c
Commit
503c607c
authored
Jul 25, 2015
by
Dave Cooper
Browse files
fixed glisp:source-pathname for CCL, cleaned up couple things in timer
parent
983eb838
Changes
4
Hide whitespace changes
Inline
Side-by-side
apps/timer/db/dave@genworks.com
0 → 100644
View file @
503c607c
"(\"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
apps/timer/db/david.cooper@genworks.com
0 → 100644
View file @
503c607c
"(\"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
apps/timer/source/assembly.lisp
View file @
503c607c
...
...
@@ -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
...
...
base/source/genworks.lisp
View file @
503c607c
...
...
@@ -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
)
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment