From 0e21064cf777bb71651d0a3538f1b32fbe208d5a Mon Sep 17 00:00:00 2001
From: Maciej Pasternacki <maciej@pasternacki.net>
Date: Sat, 8 Nov 2008 07:58:41 +0100
Subject: [PATCH] - PRINT-OBJECT method for PASSENGER.

---
 src/passengers.lisp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/passengers.lisp b/src/passengers.lisp
index f60e1dd..88a99a2 100644
--- a/src/passengers.lisp
+++ b/src/passengers.lisp
@@ -29,6 +29,10 @@
   (:metaclass dao-class)
   (:keys id))
 
+(defmethod print-object ((o passenger) s)
+  (print-unreadable-object (o s :type t :identity t)
+    (format s "~D ~S" (id o) (passenger-name o))))
+
 (defun passenger-class-activation-table (class)
   "Table name of passenger class' activation ticket table."
   (concatenate 'string (s-sql:to-sql-name (dao-table-name class)) "_activation"))
-- 
2.11.4.GIT