Commit f323a203 authored by Iban Hatchondo's avatar Iban Hatchondo
Browse files

Fix compilation with latest sbcl versions

parent e5c53363
;;; -*- Mode: Lisp; Package: CLX-EXTENSIONS -*-
;;; $Id: event.lisp,v 1.8 2005/01/05 00:23:57 ihatchondo Exp $
;;; $Id: event.lisp,v 1.9 2005/01/15 12:27:00 ihatchondo Exp $
;;;
;;; Add on for CLX to have some CLOS events.
;;; This file is part of Eclipse.
......@@ -248,8 +248,15 @@
#+lucid `(clos:slot-definition-initargs ,slot)
#+sbcl `(slot-value ,slot 'sb-pcl::initargs))
(defmacro finalize-inheritance (class)
#+sbcl `(sb-mop:finalize-inheritance ,class)
#+cmu `(pcl:finalize-inheritance ,class)
#+clisp `(clos:finalize-inheritance ,class))
(defmacro class-initargs (class)
`(loop for slot in (class-slots ,class) collect (car (slot-initargs slot))))
`(progn
(finalize-inheritance ,class)
(loop for slot in (class-slots ,class) collect (car (slot-initargs slot)))))
(macrolet ((define-make-event-function ()
(flet ((make-initarg-key-value-pair (initargs)
......
Supports Markdown
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