Code: Select all
manual
;;;;
(map (curry :area) (list (myrect mycircle))) → (200 314.1592654)
;;;;
(set 'A (array 2 3 (sequence 1 6))) → ((1 2) (3 4) (5 6))
;;;;reader-event
(context 'macro)
; registers a macro
(define-macro (macro:macro callp body)
(push (list (first callp) '*) macro-list -1)
(eval (expand '(define-macro callp (expand 'body)) 'callp 'body))
)
;must add otherwise will throw error when eval write express
(setf macro-list '())
;
guiserver
(gs:set-grid-layout sym-container int-columns int-rows [int-hgap int-vgap])
change to
(gs:set-grid-layout sym-container int-rows int-columns [int-hgap int-vgap])
parameter: str-down-con-path - The path for a pressed down image icon.
to
parameter: str-down-icon-path - The path for a pressed down image icon.
gs:draw-image
lost parameter:str-path
code pattern
(setf '("Anne" address city) persons '(city "Boston")) → (city "New York")
to
(setf (assoc '("Anne" address city) persons) '(city "Boston")) → (city "New York")
Many other schemes to configure a net-eval parameter list are possible. The following scheme without idle-loop would give the same results:
example code no changes
foo is the address to the structure astruc
to
foo3 is the address to the structure astruc
???
formats "u" and "d" may produce different results, because of sign expansion from 16 to 32 bits
> (setf zs "哈哈")
"哈哈"
> (pop zs -1)
ERR: not enough memory in function pop
can't pop utf-8string by index with -1