From b03cc3553f0db3ef6fb1da52c61635cf3a51bdb4 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sun, 23 Oct 2022 11:16:44 -0500 Subject: Remove: initialze-instance :after for content --- vampire.lisp | 6 ------ 1 file changed, 6 deletions(-) (limited to 'vampire.lisp') diff --git a/vampire.lisp b/vampire.lisp index 7ad9b63..33c1ab2 100644 --- a/vampire.lisp +++ b/vampire.lisp @@ -30,12 +30,6 @@ :index-type hash-index :index-reader content-by-user))) -(defmethod initialize-instance :after ((content content) &key) - (when (zerop (length (content-title content))) - (setf (content-title content) (format nil "~a-~a" - (class-of content) - (store-object-id content))))) - (defclass/bknr playlist (content) ((tracks editors :with :std (list)))) -- cgit v1.2.3