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 MenuOne could build a better debugger using the current debugging facilities and reflective API offered by newLISP and without changing anything inside newLISP.Quote from: "Lutz"
Every function needs at least one parameter for the inner code, hence the emptyQuote
strings in the example above.
(context 'next)
(setq seenSymbols '())
(define-macro (next:next aList)
(unless (ref (string aList) next:seenSymbols)
(push (list (string aList) (copy (eval aList))) next:seenSymbols))
(pop (next:seenSymbols (first (ref (string aList) next:seenSymbols)) 1))
)
(define (foo) (println $args)) ; -> (lambda () (println $args))
(foo 1 2 3) ; -> (1 2 3)
(define (type x)
(let (types '(
"bool" "bool" "integer" "float" "string" "symbol" "context" "primitive"
"import-simple" "import-libffi" "quote" "list" "lambda" "macro" "array"))
(types (& 0xf ((dump x) 1)))))
I assume that you didn't visit the page after hitting ^C... Did you try Cmd/Ctrl-Shift-R (or a different browser)?Quote from: "itistoday"
Also, try following these instructions to get it running under Apache instead:
ERR: invalid function : (load-files-in-dir (string DRAGONFLY_ROOT "/lib") ".lsp$")
(define-macro (wrap-in-context:wrap-in-context ctx-new)
(eval
(doargs (arg)
(read-expr
(replace {w+:} (string arg) "" 0) (eval ctx-new)))))
(define-macro (replace-this-context:replace-this-context ctx-old ctx-new)
(eval
(doargs (arg)
(read-expr
(replace (string (eval ctx-old) ":") (string arg) "" 0) (eval ctx-new)))))