(format t "~A ~A~%"
  (lisp-implementation-type)
  (lisp-implementation-version))
 
(format t "~a " 'this)
(setf (readtable-case *readtable*) :invert)
(format t "~a ~a~%" 'is 'aWeSoMe)
 
(let ((*readtable* (copy-readtable nil))) 
  (format t "READTABLE-CASE  Input   Symbol-name~
           ~%-----------------------------------~
           ~%")
  (dolist (readtable-case '(:upcase :downcase :preserve :invert)) 
    (setf (readtable-case *readtable*) readtable-case) 
    (dolist (input '("ZEBRA" "Zebra" "zebra")) 
      (format t ":~A~16T~A~24T~A~%" 
                (string-upcase readtable-case) 
                input 
                (symbol-name (read-from-string input))))))

KGZvcm1hdCB0ICJ+QSB+QX4lIgogIChsaXNwLWltcGxlbWVudGF0aW9uLXR5cGUpCiAgKGxpc3AtaW1wbGVtZW50YXRpb24tdmVyc2lvbikpCgooZm9ybWF0IHQgIn5hICIgJ3RoaXMpCihzZXRmIChyZWFkdGFibGUtY2FzZSAqcmVhZHRhYmxlKikgOmludmVydCkKKGZvcm1hdCB0ICJ+YSB+YX4lIiAnaXMgJ2FXZVNvTWUpCgoobGV0ICgoKnJlYWR0YWJsZSogKGNvcHktcmVhZHRhYmxlIG5pbCkpKSAKICAoZm9ybWF0IHQgIlJFQURUQUJMRS1DQVNFICBJbnB1dCAgIFN5bWJvbC1uYW1lfgogICAgICAgICAgIH4lLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1+CiAgICAgICAgICAgfiUiKQogIChkb2xpc3QgKHJlYWR0YWJsZS1jYXNlICcoOnVwY2FzZSA6ZG93bmNhc2UgOnByZXNlcnZlIDppbnZlcnQpKSAKICAgIChzZXRmIChyZWFkdGFibGUtY2FzZSAqcmVhZHRhYmxlKikgcmVhZHRhYmxlLWNhc2UpIAogICAgKGRvbGlzdCAoaW5wdXQgJygiWkVCUkEiICJaZWJyYSIgInplYnJhIikpIAogICAgICAoZm9ybWF0IHQgIjp+QX4xNlR+QX4yNFR+QX4lIiAKICAgICAgICAgICAgICAgIChzdHJpbmctdXBjYXNlIHJlYWR0YWJsZS1jYXNlKSAKICAgICAgICAgICAgICAgIGlucHV0IAogICAgICAgICAgICAgICAgKHN5bWJvbC1uYW1lIChyZWFkLWZyb20tc3RyaW5nIGlucHV0KSkpKSkp