movitz-cvs March 2007

movitz-cvs@common-lisp.net

1 participants
63 discussions

[movitz-cvs] CVS public_html
by ffjeld 15 Mar '07

15 Mar '07

Update of /project/movitz/cvsroot/public_html In directory clnet:/tmp/cvs-serv23906 Modified Files: index.html Log Message: *** empty log message *** --- /project/movitz/cvsroot/public_html/index.html 2007/01/03 10:49:49 1.29 +++ /project/movitz/cvsroot/public_html/index.html 2007/03/15 16:03:13 1.30 @@ -13,8 +13,35 @@ <h1>Movitz: a Common Lisp x86 development platform</h1> </div> -  + <h3>Most recent news</h3> + <pre> +2007-03-14 Frode Vatvedt Fjeld <frodef(a)cs.uit.no> + + * movitz/losp/x86-pc/keyboard.lisp: Patch from Shawn Betts + improves the keyboard driver and adds dvorak support. + + * movitz/losp/x86-pc/vga.lisp: Patch from Martin Bealby adds some + simple VGA graphics capabilities, and a neat splash image. + + * movitz/bootblock.lisp: Added detection of floppy geometry in the + bootloader. This was prompted by the fact that Qemu appears to do + some weird auto-detection of the floppy geometry based on the + floppy image's size. However, it should also mean that movitz can + now be booted from a "real" 5 1/4' floppy should you ever find + one, and more importantly, probably also 2.88-MB floppies as + supported by bochs and qemu, and I think also some actual hardware + drives. + + * movitz/compiler.lisp: Much improved keyword argument parsing. It + is now faster, smaller in code-size, and more (fully?) ANSI + compliant. + + * doc/ChangeLog: Things are not moving quite as slowly as might be + suggested by the lack of activity in this file. The last few + weeks, there has been quite a bit of activity. I'll try once again + to remember to update this ChangeLog. + </pre> <h3>Introduction</h3> <p> The Movitz system aspires to be an implementation of ANSI Common

1 0

[movitz-cvs] CVS movitz/doc
by ffjeld 14 Mar '07

14 Mar '07

Update of /project/movitz/cvsroot/movitz/doc In directory clnet:/tmp/cvs-serv20038 Modified Files: ChangeLog Log Message: *** empty log message *** --- /project/movitz/cvsroot/movitz/doc/ChangeLog 2005/12/02 22:06:49 1.11 +++ /project/movitz/cvsroot/movitz/doc/ChangeLog 2007/03/14 20:57:37 1.12 @@ -1,3 +1,29 @@ +2007-03-14 Frode Vatvedt Fjeld <frodef(a)cs.uit.no> + + * movitz/losp/x86-pc/keyboard.lisp: Patch from Shawn Betts + improves the keyboard driver and adds dvorak support. + + * movitz/losp/x86-pc/vga.lisp: Patch from Martin Bealby adds some + simple VGA graphics capabilities, and a neat splash image. + + * movitz/bootblock.lisp: Added detection of floppy geometry in the + bootloader. This was prompted by the fact that Qemu appears to do + some weird auto-detection of the floppy geometry based on the + floppy image's size. However, it should also mean that movitz can + now be booted from a "real" 5 1/4' floppy should you ever find + one, and more importantly, probably also 2.88-MB floppies as + supported by bochs and qemu, and I think also some actual hardware + drives. + + * movitz/compiler.lisp: Much improved keyword argument parsing. It + is now faster, smaller in code-size, and more (fully?) ANSI + compliant. + + * doc/ChangeLog: Things are not moving quite as slowly as might be + suggested by the lack of activity in this file. The last few + weeks, there has been quite a bit of activity. I'll try once again + to remember to update this ChangeLog. + 2005-12-02 Frode Vatvedt Fjeld <frodef(a)cs.uit.no> * Uploaded a new los0.img.

1 0

[movitz-cvs] CVS movitz/losp/x86-pc
by ffjeld 14 Mar '07

14 Mar '07

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory clnet:/tmp/cvs-serv17970 Modified Files: keyboard.lisp Log Message: Improved keyboard driver, including dvorak support. Patch from Shawn Betts. --- /project/movitz/cvsroot/movitz/losp/x86-pc/keyboard.lisp 2004/12/10 12:48:34 1.6 +++ /project/movitz/cvsroot/movitz/losp/x86-pc/keyboard.lisp 2007/03/14 20:42:48 1.7 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Sep 24 16:04:12 2001 ;;;; -;;;; $Id: keyboard.lisp,v 1.6 2004/12/10 12:48:34 ffjeld Exp $ +;;;; $Id: keyboard.lisp,v 1.7 2007/03/14 20:42:48 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -25,57 +25,117 @@ read-keypress poll-key set-leds - cpu-reset)) + cpu-reset + set-kbd-layout)) (in-package muerte.x86-pc.keyboard) -(defvar *scan-codes-shift* - #(#\null nil #\! #\@ #\# #\$ #\% #\^ ; #x00 - #\& #\* #$ #$ #\_ #\+ nil nil ; #x08 - #\Q #\W #\E #\R #\T #\Y #\U #\I ; #x10 - #\O #\P #\{ #\} #\newline nil #\A #\S ; #x18 - - #\D #\F #\G #\H #\J #\K #\L #\: ; #x20 - #\" #\~ nil #\| #\Z #\X #\C #\V ; #x28 - #\B #\N #\M #\< #\> #\? nil nil ; #x30 - nil nil nil nil nil nil nil nil ; #x38 - nil nil nil nil nil :pause nil nil)) ; #x40 - -(defparameter *scan-codes* - #(#\null #\escape #\1 #\2 #\3 #\4 #\5 #\6 ; #x00 - #\7 #\8 #\9 #\0 #\- #\= #\backspace #\tab ; #x08 - #\q #\w #\e #\r #\t #\y #\u #\i ; #x10 - #\o #\p #\[ #\] #\newline :ctrl-left #\a #\s ; #x18 - - #\d #\f #\g #\h #\j #\k #\l #\; ; #x20 - #\' #\` :shift-left #\\ #\z #\x #\c #\v ; #x28 - #\b #\n #\m #\, #\. #\/ :shift-right #\escape ; #x30 - :alt-left #\space :caps-lock :f1 :f2 :f3 :f4 :f5 ; #x38 - - :f6 :f7 :f8 :f9 :f10 :break :scroll-lock nil ; #x40 - nil nil nil nil nil nil nil nil ; #x48 - nil :kp-ins nil :kp-del nil nil nil :f11 ; #x50 - :f12 nil nil nil nil nil nil nil ; #x58 + +(defvar *layouts* + '((:qwerty + #(#\null #\escape #\1 #\2 #\3 #\4 #\5 #\6 ; #x00 + #\7 #\8 #\9 #\0 #\- #\= #\backspace #\tab ; #x08 + #\q #\w #\e #\r #\t #\y #\u #\i ; #x10 + #\o #\p #\[ #\] #\newline :ctrl-left #\a #\s ; #x18 + + #\d #\f #\g #\h #\j #\k #\l #\; ; #x20 + #\' #\` :shift-left #\\ #\z #\x #\c #\v ; #x28 + #\b #\n #\m #\, #\. #\/ :shift-right #\escape ; #x30 + :alt-left #\space :caps-lock :f1 :f2 :f3 :f4 :f5 ; #x38 + + :f6 :f7 :f8 :f9 :f10 :break :scroll-lock nil ; #x40 + nil nil nil nil nil nil nil nil ; #x48 + nil :kp-ins nil :kp-del nil nil nil :f11 ; #x50 + :f12 nil nil nil nil nil nil nil ; #x58 - nil nil nil nil nil nil nil nil ; #x60 - nil nil nil nil nil nil nil nil ; #x68 - nil nil nil nil nil nil nil nil ; #x70 - nil nil nil nil nil nil nil nil ; #x78 - - nil nil nil nil nil nil nil nil ; #x80 - nil nil nil nil nil nil nil nil ; #x88 - nil nil nil nil :ctrl-right nil nil nil ; #x90 - nil nil nil nil nil :ctrl-right nil nil ; #x98 + nil nil nil nil nil nil nil nil ; #x60 + nil nil nil nil nil nil nil nil ; #x68 + nil nil nil nil nil nil nil nil ; #x70 + nil nil nil nil nil nil nil nil ; #x78 + + nil nil nil nil nil nil nil nil ; #x80 + nil nil nil nil nil nil nil nil ; #x88 + nil nil nil nil :ctrl-right nil nil nil ; #x90 + nil nil nil nil nil :ctrl-right nil nil ; #x98 - nil nil nil nil nil nil nil nil ; #xa0 - nil nil nil nil nil nil nil nil ; #xa8 - nil nil nil nil nil nil nil nil ; #xb0 - :alt-right nil nil nil nil nil nil nil ; #xb8 - - nil nil nil nil nil nil nil :home ; #xc0 - :up :page-up nil :left nil :right nil :end ; #xc8 - :down :page-down :insert nil #+ignore #\delete nil nil nil nil nil ; #xd0 - :alt-right nil nil nil :win :menu nil nil)) ; #xd8 + nil nil nil nil nil nil nil nil ; #xa0 + nil nil nil nil nil nil nil nil ; #xa8 + nil nil nil nil nil nil nil nil ; #xb0 + :alt-right nil nil nil nil nil nil nil ; #xb8 + + nil nil nil nil nil nil nil :home ; #xc0 + :up :page-up nil :left nil :right nil :end ; #xc8 + :down :page-down :insert nil #+ignore #\delete nil nil nil nil nil ; #xd0 + :alt-right nil nil nil :win :menu nil nil) ; #x40 + #(#\null nil #\! #\@ #\# #\$ #\% #\^ ; #x00 + #\& #\* #$ #$ #\_ #\+ nil nil ; #x08 + #\Q #\W #\E #\R #\T #\Y #\U #\I ; #x10 + #\O #\P #\{ #\} #\newline nil #\A #\S ; #x18 + + #\D #\F #\G #\H #\J #\K #\L #\: ; #x20 + #\" #\~ nil #\| #\Z #\X #\C #\V ; #x28 + #\B #\N #\M #\< #\> #\? nil nil ; #x30 + nil nil nil nil nil nil nil nil ; #x38 + nil nil nil nil nil :pause nil nil)) ; #xd8 + (:dvorak + #(#\null #\escape #\1 #\2 #\3 #\4 #\5 #\6 ; #x00 + #\7 #\8 #\9 #\0 #\[ #\] #\backspace #\tab ; #x08 + #\' #\, #\. #\p #\y #\f #\g #\c ; #x10 + #\r #\l #\/ #\= #\newline :ctrl-left #\a #\o ; #x18 + + #\e #\u #\i #\d #\h #\t #\n #\s ; #x20 + #\- #\` :shift-left #\\ #\; #\q #\j #\k ; #x28 + #\x #\b #\m #\w #\v #\z :shift-right #\escape ; #x30 + :alt-left #\space :caps-lock :f1 :f2 :f3 :f4 :f5 ; #x38 + + :f6 :f7 :f8 :f9 :f10 :break :scroll-lock nil ; #x40 + nil nil nil nil nil nil nil nil ; #x48 + nil :kp-ins nil :kp-del nil nil nil :f11 ; #x50 + :f12 nil nil nil nil nil nil nil ; #x58 + + nil nil nil nil nil nil nil nil ; #x60 + nil nil nil nil nil nil nil nil ; #x68 + nil nil nil nil nil nil nil nil ; #x70 + nil nil nil nil nil nil nil nil ; #x78 + + nil nil nil nil nil nil nil nil ; #x80 + nil nil nil nil nil nil nil nil ; #x88 + nil nil nil nil :ctrl-right nil nil nil ; #x90 + nil nil nil nil nil :ctrl-right nil nil ; #x98 + + nil nil nil nil nil nil nil nil ; #xa0 + nil nil nil nil nil nil nil nil ; #xa8 + nil nil nil nil nil nil nil nil ; #xb0 + :alt-right nil nil nil nil nil nil nil ; #xb8 + + nil nil nil nil nil nil nil :home ; #xc0 + :up :page-up nil :left nil :right nil :end ; #xc8 + :down :page-down :insert nil #+ignore #\delete nil nil nil nil nil ; #xd0 + :alt-right nil nil nil :win :menu nil nil) ; #x40 + #(#\null nil #\! #\@ #\# #\$ #\% #\^ ; #x00 + #\& #\* #$ #$ #\{ #\} nil nil ; #x08 + #\" #\< #\> #\P #\Y #\F #\G #\C ; #x10 + #\R #\L #\? #\+ #\newline nil #\A #\O ; #x18 + + #\E #\U #\I #\D #\H #\T #\N #\S ; #x20 + #\_ #\~ nil #\| #\: #\Q #\J #\K ; #x28 + #\X #\B #\M #\W #\V #\Z nil nil ; #x30 + nil nil nil nil nil nil nil nil ; #x38 + nil nil nil nil nil :pause nil nil))) ; #xd8 + "An assoc of all defined keyboard layouts.") + +;; default to qwerty +(defparameter *scan-codes* (second (assoc :qwerty *layouts*))) +(defparameter *scan-codes-shift* (third (assoc :qwerty *layouts*))) + +(defun set-kbd-layout (layout-id) + "Set the keyboard layout to one provided in *layouts*." + (let* ((layout (or (assoc layout-id *layouts*) + (error "Ther is no layout named ~S defined." layout-id))) + (normal (second layout)) + (shifted (third layout))) + (setf *scan-codes* normal + *scan-codes-shift* shifted))) (defun lowlevel-event-p () (logbitp 0 (io-port #x64 :unsigned-byte8))) @@ -149,10 +209,10 @@ (defun decode-key-code (key-code qualifiers) (or (and (logbitp +qualifier-shift+ qualifiers) - (< -1 key-code (length *scan-codes-shift*)) - (aref *scan-codes-shift* key-code)) + (< -1 key-code (length *scan-codes-shift*)) + (aref *scan-codes-shift* key-code)) (and (< -1 key-code (length *scan-codes*)) - (aref *scan-codes* key-code)))) + (aref *scan-codes* key-code)))) ;;; (< -1 key-code (length *scan-codes*))) (defun get-key ()

1 0

[movitz-cvs] CVS movitz/losp/x86-pc
by ffjeld 13 Mar '07

13 Mar '07

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory clnet:/tmp/cvs-serv1669 Modified Files: vga.lisp Log Message: Patch from Martin Bealby: VGA graphics, with a neat splash. --- /project/movitz/cvsroot/movitz/losp/x86-pc/vga.lisp 2004/11/14 22:58:33 1.6 +++ /project/movitz/cvsroot/movitz/losp/x86-pc/vga.lisp 2007/03/13 21:56:15 1.7 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 25 14:08:20 2001 ;;;; -;;;; $Id: vga.lisp,v 1.6 2004/11/14 22:58:33 ffjeld Exp $ +;;;; $Id: vga.lisp,v 1.7 2007/03/13 21:56:15 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -207,6 +207,42 @@ #x38 #x39 #x3A #x3B #x3C #x3D #x3E #x3F #x0C #x00 #x0F #x08 #x00))) +(defconstant +vga-state-320x200x256+ + '((:misc . #x63) + (:sequencer + #x03 #x01 #x0F #x00 #x0E) + (:crtc + #x5F #x4F #x50 #x82 #x54 #x80 #xBF #x1F + #x00 #x41 #x00 #x00 #x00 #x00 #x00 #x00 + #x9C #x0E #x8F #x28 #x40 #x98 #xB9 #xA3 + #xFF) + (:graphics + #x00 #x00 #x00 #x00 #x00 #x40 #x05 #x0F + #xFF) + (:attribute + #x00 #x01 #x02 #x03 #x04 #x05 #x06 #x07 + #x08 #x09 #x0A #x0B #x0C #x0D #x0E #x0F + #x41 #x00 #x0F #x00 #x00))) + + +;; 640x480 in testing, functions not available yet. +(defconstant +vga-state-640x480x16+ + '((:misc . #xE3) + (:sequencer + #x03 #x01 #x08 #x00 #x06) + (:crtc + #x5F #x4F #x50 #x82 #x54 #x80 #x0B #x3E + #x00 #x40 #x00 #x00 #x00 #x00 #x00 #x00 + #xEA #x0C #xDF #x28 #x00 #xE7 #x04 #xE3 + #xFF) + (:graphics + #x00 #x00 #x00 #x00 #x03 #x00 #x05 #x0F + #xFF) + (:attribute + #x00 #x01 #x02 #x03 #x04 #x05 #x14 #x07 + #x38 #x39 #x3A #x3B #x3C #x3D #x3E #x3F + #x01 #x00 #x0F #x00 #x00))) + (defconstant +vga-misc-read+ #x0c) (defconstant +vga-misc-write+ #x02) @@ -886,4 +922,4167 @@ #x00 #x00 #x00 #x00 #x7C #x7C #x7C #x7C #x7C #x7C #x7C #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00 }) +(defconstant +vga-g-splash+ +#{ #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x00 #x00 #x00 #x00 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x00 #x00 #x00 #x00 #x00 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x00 #x00 #x04 #x04 #x00 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x00 #x00 #x04 #x04 #x04 #x00 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x00 #x00 #x04 #x04 #x04 #x00 #x01 #x01 #x01 #x01 #x01 #x01 #x01 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x00 #x00 #x04 #x04 #x04 #x00 #x01 #x01 #x01 #x01 #x01 #x01 #x01 #x01 + #x01 #x01 #x01 #x01 #x01 #x01 #x01 #x01 #x01 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x00 #x04 #x04 #x04 #x00 #x01 #x01 #x01 #x01 #x01 #x01 #x01 #x01 #x01 + #x01 #x01 #x01 #x01 #x01 #x01 #x01 #x01 #x01 #x01 #x01 #x01 #x01 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x00 #x00 #x04 #x04 #x04 #x00 #x01 #x01 #x01 #x07 #x07 #x01 #x01 #x01 #x01 + #x01 #x01 #x01 #x01 #x01 #x07 #x07 #x01 #x01 #x01 #x01 #x01 #x01 #x01 #x01 #x01 + #x01 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x00 #x00 #x04 #x04 #x04 #x00 #x01 #x01 #x01 #x07 #x07 #x01 #x01 #x01 #x01 + #x01 #x01 #x01 #x01 #x01 #x07 #x07 #x01 #x01 #x01 #x01 #x01 #x01 #x01 #x01 #x01 + #x01 #x01 #x01 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x00 #x00 #x04 #x04 #x00 #x00 #x01 #x01 #x07 #x07 #x07 #x01 #x01 #x01 #x01 + #x01 #x01 #x01 #x01 #x01 #x07 #x07 #x01 #x01 #x01 #x07 #x07 #x07 #x07 #x07 #x01 + #x01 #x01 #x01 #x01 #x01 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x00 #x00 #x04 #x04 #x04 #x00 #x01 #x01 #x01 #x07 #x07 #x01 #x01 #x01 #x01 #x01 + #x01 #x01 #x01 #x01 #x07 #x07 #x07 #x01 #x01 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x01 #x01 #x01 #x01 #x01 #x01 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x00 #x00 #x04 #x04 #x04 #x00 #x01 #x01 #x01 #x07 #x07 #x01 #x01 #x01 #x01 #x01 + #x01 #x01 #x01 #x01 #x07 #x07 #x07 #x01 #x01 #x07 #x07 #x07 #x01 #x07 #x07 #x07 + #x07 #x07 #x01 #x01 #x01 #x01 #x01 #x01 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 + #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 #x07 [3822 lines skipped]

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 13 Mar '07

13 Mar '07

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv22457 Modified Files: los-closette-compiler.lisp Log Message: Remove debug statement. --- /project/movitz/cvsroot/movitz/losp/muerte/los-closette-compiler.lisp 2007/03/11 22:43:10 1.20 +++ /project/movitz/cvsroot/movitz/losp/muerte/los-closette-compiler.lisp 2007/03/13 20:42:42 1.21 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Aug 29 13:15:11 2002 ;;;; -;;;; $Id: los-closette-compiler.lisp,v 1.20 2007/03/11 22:43:10 ffjeld Exp $ +;;;; $Id: los-closette-compiler.lisp,v 1.21 2007/03/13 20:42:42 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -693,10 +693,6 @@ (slot-initform (muerte::translate-program (slot-definition-initform slot) '#:muerte.cl '#:cl))) (when slot-initform - (warn "init slot: ~S: ~S => ~S" - slot-name - slot-initform - (movitz::eval-form slot-initform)) (setf (movitz-slot-value class slot-name) (movitz::eval-form slot-initform))))) (std-after-initialization-for-classes class :direct-slots direct-slots

1 0

[movitz-cvs] CVS movitz/ide
by ffjeld 13 Mar '07

13 Mar '07

Update of /project/movitz/cvsroot/movitz/ide In directory clnet:/tmp/cvs-serv22271 Modified Files: movitz-slime.el Log Message: Make initialization of the SLIME IDE more streamlined. --- /project/movitz/cvsroot/movitz/ide/movitz-slime.el 2007/03/07 20:53:12 1.4 +++ /project/movitz/cvsroot/movitz/ide/movitz-slime.el 2007/03/13 20:42:13 1.5 @@ -16,19 +16,38 @@ (require 'slime) (require 'cl) -;;;; Minor-mode +(eval-and-compile + (defvar movitz-slime-path + (let ((path (or (locate-library "movitz-slime") load-file-name))) + (when path + (file-name-directory path))) + "Directory containing movitz sources. +This is used to load the supporting Common Lisp library, ide.lisp. +The default value is automatically computed from the location of the +Emacs Lisp package.")) ;; You should set this to something more convenient, e.g. "\C-cm" (defvar movitz-command-prefix "\C-c\C-v" "The initial key prefixf or movitz commands.") (define-minor-mode movitz-mode - "\\{movitz-mode-map}" - nil - " Movitz" + "\\{movitz-mode-map} +Interface Movitz via SLIME." + :init-value nil + :lighter " Movitz" ;; Bogus keymap to have movitz-mode-map initialized. We'll fill in ;; the real bindings manually. - `((,movitz-command-prefix . undefined))) + :keymap `((,movitz-command-prefix . undefined)) + (cond + ((not movitz-mode)) + ((not (slime-connected-p)) + (message "Movitz-mode: SLIME is not connected.")) + ((slime-eval '(cl:and (cl:find-package :movitz.ide) t))) + ((not (slime-eval '(cl:and (cl:find-package :movitz) t))) + (message "Movitz-mode: The Movitz package is not loaded.")) + (t (slime-eval-async + `(cl:progn (cl:load (cl:compile-file ,(concat movitz-slime-path "ide.lisp"))) + nil))))) (defvar movitz-mode-commands-map nil "Keymap for movitz-mode commands. @@ -61,8 +80,6 @@ (define-key movitz-mode-map "\r" 'newline-and-indent) (define-key movitz-mode-map " " 'self-insert-command)) -(movitz-init-command-keymap) - (defun movitz-auto-mode-setup () "Do some horrible things with regexps to auto-enable movitz-mode. You can call this function from your init file, but first read what it @@ -72,7 +89,7 @@ (when (string-match ".*/movitz/losp/.*\\.lisp$" (buffer-file-name)) (movitz-mode 1))))) -(movitz-auto-mode-setup) + ;;;; Commands @@ -267,4 +284,8 @@ (put (car el) 'common-lisp-indent-function (if (symbolp (cdr el)) (get (cdr el) 'common-lisp-indent-function) - (car (cdr el)))))) \ No newline at end of file + (car (cdr el)))))) + +(movitz-auto-mode-setup) +(movitz-init-command-keymap) +

1 0

[movitz-cvs] CVS movitz/ide
by ffjeld 13 Mar '07

13 Mar '07

Update of /project/movitz/cvsroot/movitz/ide In directory clnet:/tmp/cvs-serv22257 Modified Files: ide.lisp Log Message: Make initialization of the SLIME IDE more streamlined. --- /project/movitz/cvsroot/movitz/ide/ide.lisp 2007/03/03 18:34:53 1.5 +++ /project/movitz/cvsroot/movitz/ide/ide.lisp 2007/03/13 20:42:11 1.6 @@ -19,47 +19,59 @@ (in-package #:movitz.ide) +(defmacro with-image ((&optional (image-form 'movitz:*image*)) &body body) + `(let ((movitz:*image* ,image-form)) + (check-type movitz:*image* movitz::movitz-image "a Movitz image") + ,@body)) + (defun compile-movitz-file (filename) "Compile FILENAME as Movitz source." - (movitz:movitz-compile-file filename)) + (with-image () + (movitz:movitz-compile-file filename))) (defun compile-defun (source package-printname) "Compile the string SOURCE as Movitz source." - (with-input-from-string (stream source) - (movitz:movitz-compile-stream stream :path "movitz-ide-toplevel" - :package (get-package package-printname)))) + (with-image () + (with-input-from-string (stream source) + (movitz:movitz-compile-stream stream :path "movitz-ide-toplevel" + :package (get-package package-printname))))) (defun dump-image (filename) "Dump the current image into FILENAME." - (movitz:dump-image :path filename)) + (with-image () + (movitz:dump-image :path filename))) ;;; slime-friendly entry point. (defun movitz-disassemble (printname package-printname) "Return the disassembly of SYMBOL-NAME's function as a string." - (with-output-to-string (*standard-output*) - (movitz:movitz-disassemble (get-sexpr printname - (get-package package-printname))))) + (with-image () + (with-output-to-string (*standard-output*) + (movitz:movitz-disassemble (get-sexpr printname + (get-package package-printname)))))) (defun movitz-disassemble-method (gf-name lambda-list qualifiers package-name) - (let ((package (get-package package-name))) - (with-output-to-string (*standard-output*) - (movitz:movitz-disassemble-method (get-sexpr gf-name package) - (get-sexpr lambda-list package) - (mapcar #'read-from-string qualifiers))))) + (with-image () + (let ((package (get-package package-name))) + (with-output-to-string (*standard-output*) + (movitz:movitz-disassemble-method (get-sexpr gf-name package) + (get-sexpr lambda-list package) + (mapcar #'read-from-string qualifiers)))))) (defun movitz-arglist (name package-name) - (let* ((package (get-package package-name)) - (funobj (movitz::movitz-env-named-function (get-sexpr name package)))) - (if (not funobj) - "not defined" - (let ((*package* package)) - (princ-to-string (movitz::movitz-print (movitz::movitz-funobj-lambda-list funobj))))))) + (with-image () + (let* ((package (get-package package-name)) + (funobj (movitz::movitz-env-named-function (get-sexpr name package)))) + (if (not funobj) + "not defined" + (let ((*package* package)) + (princ-to-string (movitz::movitz-print (movitz::movitz-funobj-lambda-list funobj)))))))) (defun movitz-macroexpand (string package-name) - (let* ((*package* (get-package package-name)) - (form (get-sexpr string *package*)) - (expansion (movitz::movitz-macroexpand-1 form))) - (princ-to-string (movitz::movitz-print expansion)))) + (with-image () + (let* ((*package* (get-package package-name)) + (form (get-sexpr string *package*)) + (expansion (movitz::movitz-macroexpand-1 form))) + (princ-to-string (movitz::movitz-print expansion)))))

1 0

[movitz-cvs] CVS movitz
by ffjeld 13 Mar '07

13 Mar '07

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv20913 Modified Files: movitz.lisp Log Message: Make NIL the default value for *image*. --- /project/movitz/cvsroot/movitz/movitz.lisp 2006/04/10 11:45:36 1.11 +++ /project/movitz/cvsroot/movitz/movitz.lisp 2007/03/13 20:40:10 1.12 @@ -9,7 +9,7 @@ ;;;; Created at: Mon Oct 9 20:52:58 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: movitz.lisp,v 1.11 2006/04/10 11:45:36 ffjeld Exp $ +;;;; $Id: movitz.lisp,v 1.12 2007/03/13 20:40:10 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -18,7 +18,7 @@ (defvar *i* nil) ; These hold the previous built images, (defvar *ii* nil) ; for interactive use. -(defvar *image*) +(defvar *image* nil) (define-symbol-macro *movitz-nil* (image-nil-object *image*))

1 0

[movitz-cvs] CVS movitz
by ffjeld 13 Mar '07

13 Mar '07

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv20593 Modified Files: image.lisp Log Message: Make NIL the default value for *image*. --- /project/movitz/cvsroot/movitz/image.lisp 2007/03/01 17:49:30 1.110 +++ /project/movitz/cvsroot/movitz/image.lisp 2007/03/13 20:40:06 1.111 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.110 2007/03/01 17:49:30 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.111 2007/03/13 20:40:06 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -779,9 +779,9 @@ :start-address start-address :movitz-features '(:movitz) :function-code-sizes - (if (and (boundp '*image*) *image*) + (if *image* (copy-hash-table (function-code-sizes *image*)) - (make-hash-table :test #'equal)) + (make-hash-table :test #'equal)) init-args))) (setf (image-nil-word *image*) (+ 5 (- (slot-offset 'movitz-run-time-context 'null-symbol) @@ -824,7 +824,7 @@ (when init-file (movitz-compile-file init-file)) *image*) - *i* (when (boundp '*image*) *image*)) + *i* *image*) (when gc #+allegro (setf (sys:gsgc-parameter :generation-spread) 8) #+allegro (excl:gc :tenure)

1 0

[movitz-cvs] CVS movitz
by ffjeld 13 Mar '07

13 Mar '07

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv15051 Removed Files: slime-movitz.el Log Message: Removed in favor of ide/movitz-slime.el

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

movitz-cvs March 2007