southly

--- hash.cc.orig	2009-11-06 12:25:18.075000000 +0900
+++ hash.cc	2009-11-06 12:39:43.965625000 +0900
@@ -445,8 +445,8 @@
   if (xhash_table_used (hash_table) > xhash_table_size (hash_table) * 8 / 10)
     {
       int inc = xhash_table_rehash_size (hash_table);
-      if (inc < 10)
-        inc = min (max (xhash_table_size (hash_table) * 2 / 10, 10), 100);
+      if (inc < xhash_table_size (hash_table) / 2)
+        inc = xhash_table_size (hash_table) / 2;

southly

;;; -*- Mode: Lisp; Package: WINAPI -*-

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require "foreign")
  (require "wip/winapi"))

(in-package "winapi")

(*define-dll-entry BOOL GetVolumeInformation (LPCSTR LPSTR DWORD (DWORD *) (DWORD *) (DWORD *) LPSTR DWORD)
                   "kernel32" "GetVolumeInformationA")

southly

#!/opt/local/bin/clisp -E UTF-8

(defvar *hyperspec-path* "/opt/local/share/doc/lisp/HyperSpec-7-0/HyperSpec/Data/Map_Sym.txt")

(with-open-file (in *hyperspec-path* :direction :input)
  (do ((line (read-line in nil nil) (read-line in nil nil)))
      ((not line))
    (and (string/= "../" line :end2 (min 3 (length line)))
         (format t "~(~A~)~%" line))))
;;

southly

#!/opt/local/bin/clisp
(write-line "Hello, World!")

;; 普通に書いてOK
;; 日本語を書くときは -E UTF-8 オプションを付けた方が無難かも

;; http://clisp.cons.org/impnotes/quickstart.html#quickstart-unix
;; http://clisp.cons.org/impnotes/quit.html
;; http://clisp.cons.org/impnotes/image.html
;; http://clisp.cons.org/impnotes/shell.html

southly

#!/opt/local/bin/sbcl --script
(write-line "Hello, World!")

;; --script オプションを付ける
;; version 1.0.22 以降

;; http://www.sbcl.org/manual/Shebang-Scripts.html
;; http://www.sbcl.org/manual/Saving-a-Core-Image.html
;; http://www.sbcl.org/manual/Support-For-Unix.html
;; http://www.sbcl.org/manual/Quit.html

southly

(defpackage :clisp-arglist
  (:use :cl)
  (:export :*arglist-list* :*arglist-map* :arglist))

(in-package :cl-user)

(defparameter clisp-arglist:*arglist-list*
'((* &REST #:ARGS)
  (+ &REST #:ARGS)
  (- NUMBER &REST #:MORE-NUMBERS)

southly

;;;
;;; format-date
;;;
;;; a: 短い形式の曜日
;;; A: 長い形式の曜日
;;; b: 短い形式の月
;;; B: 長い形式の月
;;; d: 日(00〜59)                 # (0〜59)
;;; e: 和暦の年(01〜)             # (1〜)
;;; E: 和暦の年(元, 02〜)         # (元, 2〜)