summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorAoi Koizumi (古泉 あおい) <novaburst@kalli.st>2022-05-25 02:41:26 +0000
committerAoi Koizumi (古泉 あおい) <novaburst@kalli.st>2022-05-25 02:41:26 +0000
commit16f3f517c2cec05412b7ca86ee7e4b2f64ac5cc9 (patch)
tree544e45c998f2d4d81027e7648d9c8e93115a46f7
parent547b5384d16aeaac16b7133c453894d639ce6c36 (diff)
downloadhelp-16f3f517c2cec05412b7ca86ee7e4b2f64ac5cc9.tar.gz
because why not
-rw-r--r--README.org1
-rw-r--r--cl/help.lisp5
2 files changed, 6 insertions, 0 deletions
diff --git a/README.org b/README.org
index 380f18f..1eecf4c 100644
--- a/README.org
+++ b/README.org
@@ -15,6 +15,7 @@ Often found as a bash built-in command, but this one does tell you to RTFM. It h
 + Python ~cd python && python3 help.py~
 + C ~cd c && cc -o help help.c~
 + Rust ~cd rust && rustc help.rs~
++ Common Lisp ~cd cl && sbcl --load help.lisp --eval '(help)'~
 
 By the way, this is just an example on how a useless program like this can be implemented in many ways possible. 
 
diff --git a/cl/help.lisp b/cl/help.lisp
new file mode 100644
index 0000000..fbe22f8
--- /dev/null
+++ b/cl/help.lisp
@@ -0,0 +1,5 @@
+(defun help ()
+  (format t "would you mind reading the fucking manual pages?"))
+
+(with-output-to-string (*standard-output*)
+  (help))