_POLYMORPHIC C_
by Greg Voss

Listing One

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; CLASS c-input-class
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defclass c-input-class ()
    ((source-stream     :accessor source-stream
                        :initform nil
                        :initarg :source-stream)
     (line              :accessor line :initform nil)
     (line-size         :accessor line-size :initform 0)
     (line-number       :initform 0 :accessor line-number)
     (index             :accessor index :initform 0)
     (putback-stack     :accessor putback-stack :initform 
nil)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ...