rathke@is.informatik.uni-stuttgart.de (Christian Rathke) (06/18/91)
Hello, has anyone ever tried to run PCL under Lucid4.0 from a saved image? The following problems occur when using an image that has been created with (load "defsys") (pcl::load-pcl) (disksave "pcl" :full-gc t) -------------------------------------------------------------------------------- ;;; Sun Common Lisp, Development Environment 4.0.1, 6 July 1990 ;;; Sun-4 Version for SunOS 4.0.x and sunOS 4.1 ;;; ;;; Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990 ;;; by Sun Microsystems, Inc., All Rights Reserved ;;; Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990 ;;; by Lucid, Inc., All Rights Reserved ;;; This software product contains confidential and trade secret ;;; information belonging to Sun Microsystems, Inc. It may not be copied ;;; for any reason other than for archival and backup purposes. ;;; ;;; Sun, Sun-4, and Sun Common Lisp are trademarks of Sun Microsystems Inc. > *features* (:PORTABLE-COMMONLOOPS :PCL :MULTITASKING :LCL4.0 :MONITORING :PQC :COMPILER :LOOP :IEEE-FLOATING-POINT :NEWCFG :SPARC :SUN :UNIX :LCL3.0 :EGC :LUCID :COMMON-LISP) > (in-package 'pcl) #<Package "PCL" 6F9656> > *pcl-system-date* "5/1/90 May Day PCL (REV 4)" > (defclass meta-class (standard-class) ()) #<Standard-Class META-CLASS 50647476> > (defmethod reinitialize-instance :before ((mc meta-class) &rest initargs)) ;;; You are using the compiler in development mode (compilation-speed = 3) ;;; If you want faster code at the expense of longer compile time, ;;; you should use the production mode of the compiler, which can be obtained ;;; by evaluating (proclaim '(optimize (compilation-speed 0))) ;;; Generation of full safety checking code is enabled (safety = 3) ;;; Optimization of tail calls is disabled (speed = 2) #<Standard-Method REINITIALIZE-INSTANCE :BEFORE (META-CLASS) 50666376> > (defmethod shared-initialize :before ((mc meta-class) slot-name &rest initargs)) >>Error: No next method. (:INTERNAL (:INTERNAL NIL 1) CALL-NEXT-METHOD): Rest arg 0 (CNM-ARGS): (#<Compiled-Function SHARED-INITIALIZE 789AFE> :LAMBDA-LIST (MC SLOT-NAME &REST INITARGS)) :A 0: Abort to Lisp Top Level -> :b (:INTERNAL (:INTERNAL NIL 1) CALL-NEXT-METHOD) <- (:INTERNAL (:INTERNAL NIL 1) 0) <- (:INTERNAL MAKE-INITIAL-DFUN 0) <- INVALID-DFUN <- (:INTERNAL INVALIDATE-DFUN-INTERNAL 0) <- REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION <- ENSURE-GENERIC-FUNCTION <- REAL-ADD-NAMED-METHOD <- LOAD-DEFMETHOD-INTERNAL <- EVAL <- SYSTEM:ENTER-TOP-LEVEL -> -------------------------------------------------------------------------------- Evaluation of the last three forms works fine from the Lucid-supplied image and a successive (pcl::load-pcl). So it seems that either there are problems with disksave or PCL creates data in areas that are not saved/re-established in the new image. Any help/experience is greatly appreciated. -Christian ============================================================================== Christian Rathke rathke@informatik.uni-stuttgart.de Institut fuer Informatik Universitaet Stuttgart Breitwiesenstrasse 20-22 W-7000 Stuttgart 80 Tel.: (+49 711) 7816-436 ==============================================================================