Emacs lispからの簡単移植キットのテスト
http://members.at.infoseek.co.jp/osuneko/xyzzy/xyzzy.html
どこを修正したか
70a71,73 > (in-package "elisp") > (require "emacs") > 90a94,95 > (defvar run-mode-hooks nil) > 94,107c99,112 < (define-key blackbox-mode-map "\C-f" 'bb-right) < (define-key blackbox-mode-map [right] 'bb-right) < (define-key blackbox-mode-map "\C-b" 'bb-left) < (define-key blackbox-mode-map [left] 'bb-left) < (define-key blackbox-mode-map "\C-p" 'bb-up) < (define-key blackbox-mode-map [up] 'bb-up) < (define-key blackbox-mode-map "\C-n" 'bb-down) < (define-key blackbox-mode-map [down] 'bb-down) < (define-key blackbox-mode-map "\C-e" 'bb-eol) < (define-key blackbox-mode-map "\C-a" 'bb-bol) < (define-key blackbox-mode-map " " 'bb-romp) < (define-key blackbox-mode-map [insert] 'bb-romp) < (define-key blackbox-mode-map "\C-m" 'bb-done) < (define-key blackbox-mode-map [kp-enter] 'bb-done)) --- > (define-key blackbox-mode-map #\C-f 'bb-right) > (define-key blackbox-mode-map #\Right 'bb-right) > (define-key blackbox-mode-map #\C-b 'bb-left) > (define-key blackbox-mode-map #\Left 'bb-left) > (define-key blackbox-mode-map #\C-p 'bb-up) > (define-key blackbox-mode-map #\Up 'bb-up) > (define-key blackbox-mode-map #\C-n 'bb-down) > (define-key blackbox-mode-map #\Down 'bb-down) > (define-key blackbox-mode-map #\C-e 'bb-eol) > (define-key blackbox-mode-map #\C-a 'bb-bol) > (define-key blackbox-mode-map #\SPC 'bb-romp) > (define-key blackbox-mode-map #\Insert 'bb-romp) > (define-key blackbox-mode-map #\C-m 'bb-done) > (define-key blackbox-mode-map #\RET 'bb-done)) 127c132 < (run-mode-hooks 'blackbox-mode-hook)) --- > (run-hooks 'blackbox-mode-hook)) 246c251 < (buffer-disable-undo (current-buffer)) --- > ; (buffer-disable-undo (current-buffer)) 257c262,263 < (random t) --- > (setq *random-state* (make-random-state t)) > ;; (random t) 275c281 < (insert (format "\nThere are %d balls in the box" (length bb-board))) --- > (insert (format nil "\nThere are ~D balls in the box" (length bb-board))) 335c341,343 < (bb-update-board (propertize "O" 'help-echo "Placed ball")))))) --- > ;; (bb-update-board (propertize "O" 'help-echo "Placed ball")) > (bb-update-board "O") > )))) 353c361,362 < (bb-update-board (propertize "H" 'help-echo "Hit")) --- > ;; (bb-update-board (propertize "H" 'help-echo "Hit")) > (bb-update-board "H") 356c365,366 < (bb-update-board (propertize "R" 'help-echo "Reflection")) --- > ;; (bb-update-board (propertize "R" 'help-echo "Reflection")) > (bb-update-board "R") 360,361c370,372 < (bb-update-board (propertize (format "%d" bb-detour-count) < 'help-echo "Detour")) --- > ; (bb-update-board (propertize (format nil "~D" bb-detour-count) > ; 'help-echo "Detour")) > (bb-update-board (format nil "~D" bb-detour-count)) 363,365c374,377 < (bb-goto result) < (bb-update-board (propertize (format "%d" bb-detour-count) < 'help-echo "Detour"))) --- > (bb-goto result) > ; (bb-update-board (propertize (format nil "~D" bb-detour-count) > ; 'help-echo "Detour"))) > (bb-update-board (format nil "~D" bb-detour-count))) 388c400 < (message "There %s %d hidden ball%s; you have placed %d." --- > (message "There ~A ~D hidden ball~A; you have placed ~D." 396,397c408,409 < (message "Right! Your score is %d." bb-score) < (message "Oops! You missed %d ball%s. Your score is %d." --- > (message "Right! Your score is ~D." bb-score) > (message "Oops! You missed ~D ball~A. Your score is ~D."