Making changes

6 files changed, 84 insertions, 2 deletions

diff --git a/basic.lsp b/basic.lsp
index a355ed0..93d0769 100644
--- a/basic.lsp
+++ b/basic.lsp
@@ -1,5 +1,7 @@
 ;;; BASIC interpreter
 
+;; TODO: rewrite some cond/cases as defmethods. Look for calls to "instancep".
+
 ;;; Abstract syntax
 
 ;; If these were only C enums, without any payload, I'd just use symbols and (error) in the t case.
diff --git a/cap-muck.lsp b/cap-muck.lsp
index 54bfa9a..492ae6e 100644
--- a/cap-muck.lsp
+++ b/cap-muck.lsp
@@ -32,6 +32,8 @@
 
 (defglobal *write-rooms* nil)
 
+(defconstant +opposite+ #(s n w e d u))
+
 (defconstant +command-type+ #(say help quit look
                               rooms make-room make-door teleport
                               n s e w
diff --git a/chello.lisp b/chello.lisp
index 55b5999..7722770 100755
--- a/chello.lisp
+++ b/chello.lisp
@@ -1,3 +1,4 @@
 #!/usr/local/bin/sbcl --script
 
 (format *standard-output* "~A~%" "Hello world")
+(quit)
diff --git a/doc/Makefile b/doc/Makefile
index 27cc51e..241ce6f 100644
--- a/doc/Makefile
+++ b/doc/Makefile
@@ -3,7 +3,7 @@
 
 # Outputs other than Gemini aren't required
 
-GEMINI := breaking_rules.gmi bane.20.cdr15.gmi
+GEMINI := breaking_rules.gmi bane.20.cdr15.gmi bane.21.cdr16.gmi
 
 .PHONY: all
 all: $(GEMINI)
diff --git a/doc/bane.21.cdr16.gmi b/doc/bane.21.cdr16.gmi
new file mode 100644
index 0000000..dcd8d95
--- /dev/null
+++ b/doc/bane.21.cdr16.gmi
@@ -0,0 +1,75 @@
+title: POSIX API for ISLisp

+author: Darren Bane

+copyright: 2021 Darren Bane, CC BY_SA

+

+# Abstract

+

+A mapping from Scheme's SRFI-170, "POSIX API", to ISLisp is defined.

+

+# Introduction

+

+Although they are similar, Scheme and ISLisp are not the same language. This document adapts the standard Scheme POSIX interface to ISLisp accounting for:

+

+* Different naming conventions (e.g. `predicatep` rather than `predicate?`)

+* Historical practice, in particular compatibility with OpenLisp (the only commercial implementation) is prioritised

+

+# Dependencies

+

+SRFI-170 depends on at least part of several other SRFIs, in particular:

+

+* SRFI-19, "Time Data Types and Procedures"

+* SRFI-106, "Networking operations"

+* SRFI-158, "Generators and Accumulators"

+

+SRFI-39, "Parameter objects", is superseded by ISLisp's dynamic variables.

+

+Only SRFI-106 is implemented fully; the subset of required symbols is taken from the others.

+

+# Mapping

+

+Any symbols not mentioned in the following are unchanged from SRFI-170.

+

+## S3.3, "File system"

+

+```table

+┌──────────────────┬──────────────────┐

+│      Scheme      │      ISLisp      │

+╞══════════════════╪══════════════════╡

+│ file-info?       │ file-info-p      │

+├──────────────────┼──────────────────┤

+│ delete-directory │ remove-directory │

+└──────────────────┴──────────────────┘

+```

+## S3.5, "Process state"

+

+```table

+┌────────────────────────┬──────────────────┐

+│         Scheme         │      ISLisp      │

+╞════════════════════════╪══════════════════╡

+│ set-umask!             │ set-umask        │

+├────────────────────────┼──────────────────┤

+│ set-current-directory! │ change-directory │

+├────────────────────────┼──────────────────┤

+│ pid                    │ getpid           │

+├────────────────────────┼──────────────────┤

+│ user-uid               │ getuid           │

+└────────────────────────┴──────────────────┘

+```

+## S3.11, "Environment variables"

+

+```table

+┌──────────────────────────┬────────┐

+│          Scheme          │ ISLisp │

+╞══════════════════════════╪════════╡

+│ get-environment-variable │ getenv │

+└──────────────────────────┴────────┘

+```

+## S3.12, "Terminal device control"

+

+```table

+┌───────────┬───────────┐

+│  Scheme   │  ISLisp   │

+╞═══════════╪═══════════╡

+│ terminal? │ terminalp │

+└───────────┴───────────┘

+```
diff --git a/loot.lsp b/loot.lsp
index 74378fc..91f8eac 100644
--- a/loot.lsp
+++ b/loot.lsp
@@ -1,3 +1,4 @@
+;; #lang core-lisp
 ;;; Port of https://en.wikipedia.org/wiki/ModernPascal#Code_Sample[3].
 ;;; And then to CL and ISLisp.
 ;;; I prefer my version.
@@ -14,7 +15,7 @@
    (let ((random-value (random (- +max-probability+ 1))))
 	(for ((loop 0 (+ loop 1)))
 	     ((>= (elt (probabilities self) (mod loop 13)) random-value) (elt +loot-type+ (mod loop 13))))))
-(defmethod initialize-object :after ((self <looter>) initargs)
+(defmethod initialize-object :after ((self <looter>) &rest initargs)
    (setf (probabilities self) (vector 10 77 105 125 142 159 172 200 201 202 216 282 +max-probability+)))
 (defun as-string (l)
    ;; Could use assoc here, but this is closer to the original.
@@ -39,3 +40,4 @@
              ((> n 99))
 	     (format (standard-output) "~A~%" (as-string (choose loot))))))
 ;; (main)
+;; (:export #'main)