This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(* Check for syntax errors and type errors in a Standard ML file without | |
* executing the program. Tested in Poly/ML 5.9 on Ubuntu 20.04. | |
* | |
* To check for the existence of errors in a Standard ML file using Poly/ML, it | |
* is sufficient to use `PolyML.compiler (TextIO.input1 inStream, [])`. However, | |
* that will not show line and column numbers when there are errors or warnings. | |
* This program adds line and column numbers to the error and warning messages. | |
* | |
* Usage: | |
* poly --script this-file.sml file-to-check.sml |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; | |
;; scheme coin - a common lisp blockchain | |
;; | |
;; Burton Samograd | |
;; 2017 | |
(load "~/quicklisp/setup.lisp") | |
(defconstant *coin-name* "Scheme Coin") |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/sh | |
# The ROT13 substitution cipher. | |
[ "$#" -ne 1 ] && printf 'usage: rot13 string\n' && exit 1 | |
printf '%s\n' "$1" | LC_ALL=C tr 'A-Za-z' 'N-ZA-Mn-za-m' |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
abbey | |
abducts | |
ability | |
ablaze | |
abnormal | |
abort | |
abrasive | |
absorb | |
abyss | |
academy |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;; Reader macro that implements Scheme's SRFI 62 S-expression comments in Common Lisp. | |
;;;; SRFI 62: https://srfi.schemers.org/srfi-62/srfi-62.html | |
;;;; Adapted from: https://stackoverflow.com/questions/69248229/reads-recursive-p-argument-when-used-inside-a-reader-macro | |
(eval-when (:compile-toplevel :load-toplevel :execute) | |
(set-dispatch-macro-character #\# #\; | |
(lambda (stream char n) | |
(declare (ignore char)) | |
(when n | |
(error "No number allowed between # and ;")) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; explanation for LOAD *.lisp | |
;;; 1. Load ignores :compile-toplevel, :load-toplevel | |
;;; Result: NIL is returned | |
;;; explanation for COMPILE | |
;;; 1. not-compile-time(NCT) | |
;;; 2. ignore mode, EVAL, remains in current mode | |
;;; Result: print to output 'foo-compile' | |
;;; explanation for LOAD *.fasl |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; Copyright (c) 2020 Mark Polyakov | |
;; Released under the WTFPL (Do What The Fuck You Want To Public License) | |
(defvar *html-void-tags* '(:area :base :br :col :embed :hr :img :input :link | |
:meta :param :source :track :wbr) | |
"String designators for self-closing/void tags. | |
https://html.spec.whatwg.org/multipage/syntax.html#void-elements") | |
(defvar *html-escapes* | |
'(#\> ">" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
alist-cons | |
alist-copy | |
alist-delete | |
alist-delete! | |
any | |
append | |
append! | |
append-map | |
append-map! | |
append-reverse |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
* | |
+ | |
- | |
... | |
/ | |
< | |
<= | |
= | |
=> | |
> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
&allow-other-keys | |
&aux | |
&body | |
&environment | |
&key | |
&optional | |
&rest | |
&whole | |
* | |
** |
NewerOlder