kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-11-14 11:36:18 +03:00
Code Issues Projects Releases Wiki Activity

Implement not in MAL

Browse Source
This commit is contained in:
Iqbal Ansari 2016-08-19 00:30:02 +05:30
parent b5af03eea3
commit 460d52f828
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
common_lisp/step4_if_fn_do.lisp
View File

@ -127,6 +127,8 @@
"~a" "~a"
condition)))) condition))))
(rep "(def! not (fn* (a) (if a false true)))")
(defun readline (prompt &optional (in-stream *standard-input*) (out-stream *standard-output*)) (defun readline (prompt &optional (in-stream *standard-input*) (out-stream *standard-output*))
(format out-stream prompt) (format out-stream prompt)
(force-output out-stream) (force-output out-stream)