(setf (dynamic #:foo) "multi
line ""<- a quote here")

|foo:bar
gee||hux"baz|

#"skajdhfk space
new-line "" quote \ backslash"

"skajdhfk space
new-line "" quote \ backslash"

#4r11

#/a

#\space

#p"/tmp/foo"
#u"/tmp/foo"

foo:bar
:bar
internal:hux

(defdynamic my-old-fun 9)

(setf (dynamic my-old-fun) #'fun)
(setf (global my-new-fun) #'fun)

(dynamic #:system:path)

(let ((x 9)) (setq x 4) x)

"kasdjhfksdjahf the newline ~% or ~
, the form ~A, the tilde ~~, the percent %."

#\space

(defun setq (a b)
   (add a b))
(defun setq (a b)
   (funcall #'add a b))
(funcall #'setq 1 2)

(dynamic-let ((warnable-dyn 4)) 5)

(puthash 3 (static my-hash) 4)

(member x 4)
(memq x l)

(defun f (nextl x)
   (nextl nextl)
   x)

(defun foo (a &rest l #:internal:&key (x 5))
 nil)

(defun foo (a &rest l :&key (x 5))
 '&rest)

(defun foo (a &rest l #:foo:&key (x 5))
 '&rest)

(defun foo (a &optional (fool 0) (nextl 2))
  ;; 2nd optioonal should have remained nextl!!
  trapped)

(libload 'foo)
(new 'x)
(tys)
(eof-read)
(error-output-channel)
(mask-field)
(new)
(oblist)
(tyrightkey)
(tys)
(tyshowcursor)
(typecn)
(tystring)

(makevector 5 6)
(add 1 2)
(index 2)
(2** 1 2)
(symeval 4)

(pointer-row-ref 'foo 0)
(pointer-row-set 'foo 0 4)
