;;; -*- Mode:LISP; Package:USER; Base:10 -*-


(format t "~%The current *read-base* = ~10r dec. (~o oct)" *read-base* *read-base*)
(format t "~%The current *print-base* = ~10r dec. (~o oct)" *print-base* *print-base*)