felix/slime
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

using stdint types

Browse Source
This commit is contained in:
FelixBrendel
2020-03-31 11:38:53 +02:00
parent 33145be4c6
commit 76dd4d6482
52 changed files with 483 additions and 1503 deletions
Download Patch File Download Diff File Expand all files Collapse all files
integration/emacs/slime-mode.el
+7 -7
View File
@@ -14,7 +14,7 @@
;; "% a b"
;; "get-random-between a b"
;; "assert test"
;; "define-syntax form (:doc \"\") . body"
;; "define-macro form (:doc \"\") . body"
;; "define definee (:doc \"\") . body"
;; "mutate target source"
;; "vector-length v"
@@ -44,7 +44,7 @@
;; "info n"
;; "show n"
;; "addr-of var"
;; "generate-docs file_name"
;; "generate-docs-file file_name"
;; "print (:sep \" \") (:end \"\\n\") . things"
;; "read (:prompt \">\""
;; "exit (:code 0)"
@@ -62,13 +62,13 @@
(defconst slime-built-ins
'("=" ">" ">=" "<" "<=" "+" "-" "*" "/" "**" "%" "get-random-between"
"assert" "define" "define-syntax" "mutate" "if" "vector-length"
"assert" "define" "define-macro" "mutate" "if" "vector-length"
"vector-ref" "vector-set!" "set!" "set-car!" "set-cdr!"
"quote" "quasiquote" "unquote" "unquote-splicing" "and" "or" "not" "let"
"lambda" "apply" "eval" "begin" "list" "pair" "create-hash-map"
"hash-map-get" "hash-map-set!" "hash-map-delete!" "vector"
"first" "rest" "set-type!" "delete-type!" "type" "info" "mem-reset"
"show" "addr-of" "generate-docs" "print" "read" "exit" "break" "memstat"
"show" "addr-of" "generate-docs-file" "print" "read" "exit" "break" "memstat"
"mytry" "load" "import" "copy" "error" "symbol->keyword" "string->symbol"
"symbol->string" "concat-strings"))
@@ -88,8 +88,8 @@
((string= s "get-random-between") "a b")
((string= s "assert") "test")
((string= s "define") "definee (:doc \"\") . body")
((string= s "define-syntax") "form (:doc \"\") . body")
((string= s "mutate") "(mutate <expression> <expression>)")
((string= s "define-macro") "form (:doc \"\") . body")
((string= s "mutate!") "(mutate! <expression> <expression>)")
((string= s "if") "(if <test> <consequence> <alternative>)")
(t '())))
@@ -122,7 +122,7 @@
(put 'lambda 'doc-string-elt 2)
(put 'special-lambda 'doc-string-elt 2)
(put 'define 'doc-string-elt 2)
(put 'define-syntax 'doc-string-elt 2)
(put 'define-macro 'doc-string-elt 2)
(define-derived-mode slime-mode prog-mode "(slime)"
"Major mode for editing slime code."