–hsm
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts Menu
newLISP v.9.3.11 on Win32 IPv4, execute 'newlisp -h' for more info.
> (lambda () (set 'ps-template '(("prolog" ("%!PS-Adobe-2.0") ("%%Creator: newBoard.lsp")
("%%Title: .ps")
("%%CreationDate: ")
("%%Pages: 1")
("%%DocumentFonts: Zurich ZurichFigurine-Bold ZurichDiagram Helvetica-BoldOblique")
("%%PageOrder: Ascend")
("%%BoundingBox: 0 0 612 792")
("%%DocumentPaperSizes: Letter")
("%%EndComments")
(" ")
("/gamenumber 1 def")
("/pagenumber 1 def")
("/leading 12 def")
("/pagetop 720 def")
("/nextline 720 def")
("/left-margin 72 def")
("/column-width 216 def")
("/right-margin left-margin column-width add def")
(" ")
("/hrule {")
(lambda (n) (zero? (% n 2)))
(lambda (n) (not (even? n)))
(lambda (n) (+ (/ n 2) (% n 2)))
true
>
> ;--- 15855 bytes saved to C:/Documents and Settings/hsmyers/My Documents/newLISP-Dev/newBoard/ps.lsp ---
nil
nil
nil
nil
nil
nil
nil
newlisp
nil
for
nil
nil
> > > <40CF0C>
ERR: missing parenthesis : "...obe-2.0") ("%%Creator: newBoard.lsp")8199""
>
ERR: invalid function : ("%%Title: .ps")
>
ERR: invalid function : ("%%CreationDate: ")
>
ERR: invalid function : ("%%Pages: 1")
>
ERR: invalid function : ("%%DocumentFonts: Zurich ZurichFigurine-Bold ZurichDiagram Helvetica-BoldOblique")
>
ERR: invalid function : ("%%PageOrder: Ascend")
>
ERR: invalid function : ("%%BoundingBox: 0 0 612 792")
>
ERR: invalid function : ("%%DocumentPaperSizes: Letter")
>
ERR: invalid function : ("%%EndComments")
>
ERR: invalid function : (" ")
>
ERR: invalid function : ("/gamenumber 1 def")
>
ERR: invalid function : ("/pagenumber 1 def")
>
ERR: invalid function : ("/leading 12 def")
>
ERR: invalid function : ("/pagetop 720 def")
>
ERR: invalid function : ("/nextline 720 def")
>
> nil
"nil "
ERR: missing parenthesis : "... (println line)))n "
> (lambda (n) (zero? (% n 2)))
> (lambda (n) (not (even? n)))
> (lambda (n) (+ (/ n 2) (% n 2)))
> true
> > <40CF0C>
> >
newLISP v.9.3.11 on Win32 IPv4, execute 'newlisp -h' for more info.
>
> --- 9841 bytes saved to C:/Documents and Settings/hsmyers/My Documents/newLISP-Dev/newBoard/ps.lsp ---
nil
nil
nil
nil
nil
nil
nil
newlisp
nil
for
nil
nil
> > > <40CF0C>
> > <40CF0C>
nil
9841
nil
nil
nil
nil
and <4097A1>
nil
nil
nil
> >
> (setq g '(("tags" ("Event" "Northern Idaho Open")) ("moves" "d4" "f5") ("fen")))
(("tags" ("Event" "Northern Idaho Open")) ("moves" "d4" "f5") ("fen"))
> (push "x" g 2 -1)
"x"
> g
(("tags" ("Event" "Northern Idaho Open")) ("moves" "d4" "f5") ("x" "fen"))
> (push "xx" g 2 -1)
"xx"
> g
(("tags" ("Event" "Northern Idaho Open")) ("moves" "d4" "f5") ("x" "fen" "xx"))
> (push "xxx" g 2 -1)
"xxx"
> g
(("tags" ("Event" "Northern Idaho Open")) ("moves" "d4" "f5") ("x" "fen" "xx" "xxx"))