jasom

fastcgi.server = ( ".cl" =>
   (( "socket" => "/tmp/cl-fastcgi.socket",
      "bin-path" => "/path/to/init.cl",
   ))
 )

jasom

Thoughts on bourne shell error handling

POSIX errexit is a terrible, no good, very bad thing because of its non-local action.

errexit feels like typical exception handling, but isn’t

Consider the following python from the days-of-yore before the with statement:

jasom

all: foo.out1 foo.out2 bar.out1 bar.out2

foo.out1: foo.in
        sh multiple.sh foo.in

foo.out2: foo.out1
        true

bar.out1 bar.out2: bar.in
        sh multiple.sh bar.in

jasom

#!/bin/sh

usage() {
    cat <<EOF >&1
Usage: $1 [OPTION].. SRC DSTDIR

Recursively copy SRC to destination directory DSTDIR.

  -f          Create DSTDIR if it does not exist
  -H FORMAT   Use tar format FORMAT (default=pax)

jasom

(defvar *html-outstream*)

(defun index-body (&optional (outstream *html-outstream*))
  (cl-who:with-html-output (*html-outstream* outstream)
	  (:body (:main :class "wrapper"
		      (navigation)
		        (:header :class "header" :id "entrance"
			         (:section :class "container" :id "header"
					   (:img :src "/images/lambda-pink.png"
  					       :height "45")

jasom

(defpackage ltk-first-example
  (:use "CL" "LTK"))

(in-package "LTK-FIRST-EXAMPLE")

(defun gui ()
  (let ((ltk:*debug-tk* t))
  (with-ltk ()
    (wm-title *tk* "Feet to Meters")
    (let ((c (make-instance 'frame)))

jasom

(defpackage rpn (:use :cl) (:export :rpn))

(defpackage rpn-internal (:export :+ :print))

(in-package :rpn)

(defgeneric rpn-eval (token &optional y))

(defun rpn ()
  (rpn-eval (let ((*package* (find-package 'rpn-internal))) (read))))

jasom

(defun bit-ldb (vector byte-spec)
           (loop
             for idx downfrom (- (length vector) (byte-position byte-spec) 1) 
             for pos from 0 below (byte-size byte-spec)
             unless (zerop (bit vector idx)) sum (ash 1 pos)))

(define-setf-expander bit-ldb (vector bytespec &environment env)
           "Set some bits in a bit-vector to a value based on a bytespec"
           (multiple-value-bind (dummies vals newval setter getter)
               (get-setf-expansion vector env)

jasom

(loop for n from 0
      for next = 1 then (+ cur next)
      for cur = 0 then next
      when (= n 10)
      return cur)

jasom

(cxml:parse #P"foo.xml" (cxml-xmls:make-xmls-builder)) ;;=>
;(("stream" . "http://etherx.jabber.org/streams")
; ((("lang" . "http://www.w3.org/XML/1998/namespace") "en")
;  (("stream" . "http://www.w3.org/2000/xmlns/")
;   "http://etherx.jabber.org/streams")
;  ("version" "1.0") ("to" "localhost")
;  ((NIL . "http://www.w3.org/2000/xmlns/") "jabber:client"))
; "
;  "
; (("iq" . "jabber:client")