Commit dd15beb8 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Replaced PRINT-OBJECT by SLOTS-FOR-PRINT for subclasses of SLOTED-OBJECT.

parent ac02947a
...@@ -16,12 +16,14 @@ ...@@ -16,12 +16,14 @@
;;;;AUTHORS ;;;;AUTHORS
;;;; <PJB> Pascal Bourguignon <pjb@informatimago.com> ;;;; <PJB> Pascal Bourguignon <pjb@informatimago.com>
;;;;MODIFICATIONS ;;;;MODIFICATIONS
;;;; 2016-01-30 <PJB> Replaced PRINT-OBJECT by SLOTS-FOR-PRINT
;;;; for subclasses of SLOTED-OBJECT.
;;;; 2005-08-21 <PJB> Created ;;;; 2005-08-21 <PJB> Created
;;;;BUGS ;;;;BUGS
;;;;LEGAL ;;;;LEGAL
;;;; AGPL3 ;;;; AGPL3
;;;; ;;;;
;;;; Copyright Pascal Bourguignon 2005 - 2014 ;;;; Copyright Pascal Bourguignon 2005 - 2016
;;;; ;;;;
;;;; This program is free software: you can redistribute it and/or modify ;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by ;;;; it under the terms of the GNU Affero General Public License as published by
...@@ -394,9 +396,9 @@ ...@@ -394,9 +396,9 @@
(setf (scanner-current-token self) (make-eol self)) (setf (scanner-current-token self) (make-eol self))
self) self)
(defmethod print-object ((self lse-scanner) out) (defmethod slots-for-print :append ((self lse-scanner))
(print-parseable-object (self out :type t :identity t) (extract-slots self '(buffer previous-token-kind)))
line column current-token source buffer previous-token-kind))
;; (macroexpand '(print-parseable-object (self out :type t :identity t) ;; (macroexpand '(print-parseable-object (self out :type t :identity t)
;; (:line (scanner-line self)) ;; (:line (scanner-line self))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment