Code: Select all
newlisp -w . -d 8080 -http
Code: Select all
sh: line 1: 8513 Bus error ./index.cgi > /tmp/nl497f6f194365e8400d
Code: Select all
#!/usr/bin/newlisp
Code: Select all
; file util.lsp (included several times)
(define (load-once:load-once)
(doargs (file)
(if-not (find file load-once:_loaded)
(begin
(push file load-once:_loaded)
(load file)
)
)
)
)
(context MAIN)
Code: Select all
; file util.lsp (included several times)
(define (load-once:load-once)
(doargs (file)
(unless (find file load-once:_loaded)
(push file load-once:_loaded)
(load file)
)
)
)
(context MAIN)