;Reading at top level in Lisp Listener 1.
;Reading in base 10 in package FILE-SYSTEM with standard Zetalisp readtable.

(login "joe-student" t)
T
(fs:create-directory "lm:joe-student;")
T
(ed "lm:joe-student;lispm.init")
T
(viewf "lm:joe-student;lispm.init")
;;; -*- Mode:LISP; Package:USER; Readtable:CL -*-

(login-setq fs:user-personal-name-first-name-first "Joe D. Student")

(login-forms
  
  zwei:(set-comtab *standard-comtab*
	      '(
		;;set up hand keys to work like arrow keys
		#\hand-up com-up-real-line
		#\hand-down com-down-real-line
		#\hand-left com-backward
		#\hand-right com-forward
		;;quick page moves
		#\meta-hand-up com-previous-page
		#\meta-hand-down com-next-page
		;;Make roman keys do useful stuff
		#\roman-i com-backward-paragraph
		#\roman-ii com-forward-paragraph
		#\roman-iii com-beginning-of-line
		#\roman-iv com-end-of-line
		#\meta-roman-i com-correct-spelling
		;;Make delete do rubout
		#\delete com-rubout))
  )


NIL
(login "joe-student")
T
(common-lisp t t)
;Reading in base 10 in package FILE-SYSTEM with standard Common-Lisp readtable.

(pkg-goto 'user)
#<Package USER 17043230>
(break)
;Breakpoint NIL. Resume to continue, Abort to quit.
;Reading in base 10 in package USER with standard Common-Lisp readtable.