/usr/share/common-lisp/source/hyperobject/base-class.lisp is in cl-hyperobject 2.12.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; Name: base-class.lisp
;;;; Purpose: Definition of basic hyperobject class
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
;;;; $Id$
;;;;
;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
(in-package #:hyperobject)
(defclass hyperobject ()
()
(:metaclass hyperobject-class)
(:description "Basic hyperobject class"))
(defmethod print-object ((obj hyperobject) s)
(print-unreadable-object (obj s :type t :identity nil)
(funcall (obj-data-printer (get-view-id obj :compact-text))
obj s nil)))
|