Status of core-server
12 views
Skip to first unread message
Wolfgang Mederle
Dec 22, 2013, 8:13:49 AM12/22/13
to core-...@googlegroups.com
Hi,
is this project still active? I'm searching for a usable, documented, and not abandoned CL web framework that runs on a free CL implementation. I've cloned the git repo, but can't compile the project with sbcl 1.1.14 on OS X, and now I'm wondering whether further investigation into fixing the problem makes sense or not. As there seem to have been no posts here and no changes to the code in over a year, I'm not so sure. Please advise.
Regards,
Wolfgang
is this project still active? I'm searching for a usable, documented, and not abandoned CL web framework that runs on a free CL implementation. I've cloned the git repo, but can't compile the project with sbcl 1.1.14 on OS X, and now I'm wondering whether further investigation into fixing the problem makes sense or not. As there seem to have been no posts here and no changes to the code in over a year, I'm not so sure. Please advise.
Regards,
Wolfgang
Evrim Ulu
Dec 22, 2013, 11:10:02 AM12/22/13
to core-...@googlegroups.com
Hello Wolfgang,
Would you mind pasting the error stack.
evrim.
> --
> --
> To access group - http://groups.google.com/group/core-server
> To access [Core-serveR] - http://labs.core.gen.tr/
> -- Take this REPL brother and may it serve you well.
> ---
> You received this message because you are subscribed to the Google Groups
> "[Core-serveR]" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to core-server...@googlegroups.com.
> For more options, visit https://groups.google.com/groups/opt_out.
Would you mind pasting the error stack.
evrim.
> --
> To access group - http://groups.google.com/group/core-server
> To access [Core-serveR] - http://labs.core.gen.tr/
> -- Take this REPL brother and may it serve you well.
> ---
> You received this message because you are subscribed to the Google Groups
> "[Core-serveR]" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to core-server...@googlegroups.com.
> For more options, visit https://groups.google.com/groups/opt_out.
Wolfgang Mederle
Dec 27, 2013, 6:02:31 PM12/27/13
to core-...@googlegroups.com
Hello Evrim,
sorry for the late reply, I thought I'd get an email notification upon new posts ...
This is the error I'm getting:
; in: DEFCOMMAND SHELL
; (TR.GEN.CORE.SERVER:DEFCOMMAND TR.GEN.CORE.SERVER:SHELL NIL
; ((TR.GEN.CORE.SERVER::CMD :ACCESSOR
; TR.GEN.CORE.SERVER::SHELL.CMD :INITARG :CMD
; :HOST TR.GEN.CORE.SERVER:LOCAL :INITFORM
; NIL)
; (TR.GEN.CORE.SERVER::ARGS :ACCESSOR
; TR.GEN.CORE.SERVER::SHELL.ARGS
; :INITARG :ARGS
; :HOST
; TR.GEN.CORE.SERVER:LOCAL
; :INITFORM NIL)
; (TR.GEN.CORE.SERVER::WAIT :ACCESSOR
; TR.GEN.CORE.SERVER::SHELL.WAIT :INITARG
; :WAIT :HOST TR.GEN.CORE.SERVER:LOCAL
; :INITFORM T)
; (TR.GEN.CORE.SERVER::EXIT-CODE :ACCESSOR
; TR.GEN.CORE.SERVER::SHELL.EXIT-CODE :INITARG
; :EXIT-CODE :HOST TR.GEN.CORE.SERVER:REMOTE
; :INITFORM -1)
; (TR.GEN.CORE.SERVER::ERRORP :ACCESSOR
; TR.GEN.CORE.SERVER::SHELL.ERRORP :INITARG
; :ERRORP :HOST TR.GEN.CORE.SERVER:LOCAL
; :INITFORM T)
; (TR.GEN.CORE.SERVER::PROCESS :ACCESSOR
; TR.GEN.CORE.SERVER::SHELL.PROCESS :INITARG
; :PROCESS :INITFORM NIL)))
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN EVAL-WHEN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-CTOR TR.GEN.CORE.SERVER:SHELL)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-CTOR SHELL))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-PRINT-OBJECT TR.GEN.CORE.SERVER:SHELL)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-PRINT-OBJECT SHELL))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-SLOT-LIFTS TR.GEN.CORE.SERVER:SHELL)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-SLOT-LIFTS SHELL))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFMETHOD RENDER-ARGUMENTS (SHELL)
; (DEFMETHOD TR.GEN.CORE.SERVER:RENDER-ARGUMENTS
; ((IT.BESE.ARNESI::SELF TR.GEN.CORE.SERVER:SHELL))
; (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::ARGS))
; --> PROGN EVAL-WHEN
; ==>
; (SB-PCL::%DEFMETHOD-EXPANDER TR.GEN.CORE.SERVER:RENDER-ARGUMENTS NIL
; ((IT.BESE.ARNESI::SELF
; TR.GEN.CORE.SERVER:SHELL))
; ((TR.GEN.CORE.SERVER::S-V
; 'TR.GEN.CORE.SERVER::ARGS)))
;
; caught ERROR:
; (during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER RENDER-ARGUMENTS ...))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
.
; in: DEFMETHOD CHECK-EXIT-CODE (SHELL)
; (DEFMETHOD TR.GEN.CORE.SERVER::CHECK-EXIT-CODE
; ((IT.BESE.ARNESI::SELF TR.GEN.CORE.SERVER:SHELL))
; (IF (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::ERRORP)
; (RESTART-CASE (IF (NOT #)
; (ERROR
; "Execution of \"~A ~{~A~^ ~}\" failed with error code: ~D"
; # # #)
; (TR.GEN.CORE.SERVER::SHELL.EXIT-CODE
; IT.BESE.ARNESI::SELF))
; (TR.GEN.CORE.SERVER::TRY-AGAIN NIL :REPORT "Re-run this command."
; (TR.GEN.CORE.SERVER:RUN IT.BESE.ARNESI::SELF)))
; (TR.GEN.CORE.SERVER::SHELL.EXIT-CODE IT.BESE.ARNESI::SELF)))
; --> PROGN EVAL-WHEN
; ==>
; (SB-PCL::%DEFMETHOD-EXPANDER TR.GEN.CORE.SERVER::CHECK-EXIT-CODE NIL
; ((IT.BESE.ARNESI::SELF
; TR.GEN.CORE.SERVER:SHELL))
; ((IF (TR.GEN.CORE.SERVER::S-V
; 'TR.GEN.CORE.SERVER::ERRORP)
; (RESTART-CASE (IF #
; #
; #)
; (TR.GEN.CORE.SERVER::TRY-AGAIN NIL
; :REPORT "Re-run this command." #))
; (TR.GEN.CORE.SERVER::SHELL.EXIT-CODE
; IT.BESE.ARNESI::SELF))))
;
; caught ERROR:
; (during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER CHECK-EXIT-CODE ...))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFMETHOD RUN (SHELL)
; (DEFMETHOD TR.GEN.CORE.SERVER:RUN
; ((IT.BESE.ARNESI::SELF TR.GEN.CORE.SERVER:SHELL))
; (FLET ((TR.GEN.CORE.SERVER::ENSURE-CMD (TR.GEN.CORE.SERVER::CMD)
; (COND # #)))
; (IF (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::VERBOSE)
; (FORMAT T "Executing command: ~A ~{~A~^ ~}~%"
; (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::CMD)
; (TR.GEN.CORE.SERVER:RENDER-ARGUMENTS IT.BESE.ARNESI::SELF)))
; (SETF (TR.GEN.CORE.SERVER::SHELL.PROCESS IT.BESE.ARNESI::SELF)
; (RUN-PROGRAM # # :WAIT NIL :INPUT # :OUTPUT # :ERROR :OUTPUT))
; (IF (TR.GEN.CORE.SERVER::SHELL.WAIT IT.BESE.ARNESI::SELF)
; (TR.GEN.CORE.SERVER::WAIT-PROCESS IT.BESE.ARNESI::SELF)
; (VALUES))))
; --> PROGN EVAL-WHEN
; ==>
; (SB-PCL::%DEFMETHOD-EXPANDER TR.GEN.CORE.SERVER:RUN NIL
; ((IT.BESE.ARNESI::SELF
; TR.GEN.CORE.SERVER:SHELL))
; ((FLET ((TR.GEN.CORE.SERVER::ENSURE-CMD #
; #))
; (IF (TR.GEN.CORE.SERVER::S-V
; 'TR.GEN.CORE.SERVER::VERBOSE)
; (FORMAT T
; "Executing command: ~A ~{~A~^ ~}~%"
; # #))
; (SETF # #)
; (IF (TR.GEN.CORE.SERVER::SHELL.WAIT
; IT.BESE.ARNESI::SELF)
; (TR.GEN.CORE.SERVER::WAIT-PROCESS
; IT.BESE.ARNESI::SELF)
; (VALUES)))))
;
; caught ERROR:
; (during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER RUN ...))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFCOMMAND WHICH
; (TR.GEN.CORE.SERVER:DEFCOMMAND TR.GEN.CORE.SERVER::WHICH
; (TR.GEN.CORE.SERVER:SHELL)
; ((IT.BESE.ARNESI:NAME :ACCESSOR
; TR.GEN.CORE.SERVER::WHICH.NAME
; :INITARG :NAME :HOST
; TR.GEN.CORE.SERVER:LOCAL
; :INITFORM NIL))
; (:DEFAULT-INITARGS :CMD #P"/usr/bin/which"
; :VERBOSE NIL))
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN EVAL-WHEN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-CTOR TR.GEN.CORE.SERVER::WHICH)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-CTOR WHICH))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-PRINT-OBJECT TR.GEN.CORE.SERVER::WHICH)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-PRINT-OBJECT WHICH))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-SLOT-LIFTS TR.GEN.CORE.SERVER::WHICH)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-SLOT-LIFTS WHICH))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFMETHOD RENDER-ARGUMENTS (WHICH)
; (DEFMETHOD TR.GEN.CORE.SERVER:RENDER-ARGUMENTS
; ((IT.BESE.ARNESI::SELF TR.GEN.CORE.SERVER::WHICH))
; (LIST (TR.GEN.CORE.SERVER::S-V 'IT.BESE.ARNESI:NAME)))
; --> PROGN EVAL-WHEN
; ==>
; (SB-PCL::%DEFMETHOD-EXPANDER TR.GEN.CORE.SERVER:RENDER-ARGUMENTS NIL
; ((IT.BESE.ARNESI::SELF
; TR.GEN.CORE.SERVER::WHICH))
; ((LIST
; (TR.GEN.CORE.SERVER::S-V
; 'IT.BESE.ARNESI:NAME))))
;
; caught ERROR:
; (during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER RENDER-ARGUMENTS ...))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFCOMMAND CP
; (TR.GEN.CORE.SERVER:DEFCOMMAND TR.GEN.CORE.SERVER::CP
; (TR.GEN.CORE.SERVER:SHELL)
; ((TR.GEN.CORE.SERVER:FROM :ACCESSOR
; TR.GEN.CORE.SERVER::CP.FROM :INITARG :FROM
; :HOST TR.GEN.CORE.SERVER:LOCAL :INITFORM
; NIL)
; (TR.GEN.CORE.SERVER::TO :ACCESSOR
; TR.GEN.CORE.SERVER::CP.TO :INITARG :TO :HOST
; TR.GEN.CORE.SERVER:LOCAL :INITFORM NIL)
; (TR.GEN.CORE.SERVER::RECURSIVE :ACCESSOR
; TR.GEN.CORE.SERVER::CP.RECURSIVE :INITARG
; :RECURSIVE :HOST TR.GEN.CORE.SERVER:LOCAL
; :INITFORM NIL))
; (:DEFAULT-INITARGS :CMD
; (TR.GEN.CORE.SERVER:WHEREIS "cp")))
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN EVAL-WHEN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-CTOR TR.GEN.CORE.SERVER::CP)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-CTOR CP))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-PRINT-OBJECT TR.GEN.CORE.SERVER::CP)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-PRINT-OBJECT CP))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-SLOT-LIFTS TR.GEN.CORE.SERVER::CP)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-SLOT-LIFTS CP))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFMETHOD RENDER-ARGUMENTS (CP)
; (DEFMETHOD TR.GEN.CORE.SERVER:RENDER-ARGUMENTS
; ((IT.BESE.ARNESI::SELF TR.GEN.CORE.SERVER::CP))
; (LET ((TR.GEN.CORE.SERVER::ARGS (LIST # #)))
; (IF (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::RECURSIVE)
; (CONS "-r" TR.GEN.CORE.SERVER::ARGS)
; TR.GEN.CORE.SERVER::ARGS)))
; --> PROGN EVAL-WHEN
; ==>
; (SB-PCL::%DEFMETHOD-EXPANDER TR.GEN.CORE.SERVER:RENDER-ARGUMENTS NIL
; ((IT.BESE.ARNESI::SELF TR.GEN.CORE.SERVER::CP))
; ((LET ((TR.GEN.CORE.SERVER::ARGS #))
; (IF (TR.GEN.CORE.SERVER::S-V
; 'TR.GEN.CORE.SERVER::RECURSIVE)
; (CONS "-r" TR.GEN.CORE.SERVER::ARGS)
; TR.GEN.CORE.SERVER::ARGS))))
;
; caught ERROR:
; (during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER RENDER-ARGUMENTS ...))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFCOMMAND RM
; (TR.GEN.CORE.SERVER:DEFCOMMAND TR.GEN.CORE.SERVER::RM
; (TR.GEN.CORE.SERVER:SHELL)
; ((TR.GEN.CORE.SERVER::PATH :ACCESSOR
; TR.GEN.CORE.SERVER::RM.PATH :INITARG :PATH
; :HOST TR.GEN.CORE.SERVER:LOCAL :INITFORM
; NIL))
; (:DEFAULT-INITARGS :CMD
; (TR.GEN.CORE.SERVER:WHEREIS "rm")))
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN EVAL-WHEN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-CTOR TR.GEN.CORE.SERVER::RM)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-CTOR RM))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-PRINT-OBJECT TR.GEN.CORE.SERVER::RM)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-PRINT-OBJECT RM))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-SLOT-LIFTS TR.GEN.CORE.SERVER::RM)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-SLOT-LIFTS RM))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFMETHOD RENDER-ARGUMENTS (RM)
; (DEFMETHOD TR.GEN.CORE.SERVER:RENDER-ARGUMENTS
; ((IT.BESE.ARNESI::SELF TR.GEN.CORE.SERVER::RM))
; (APPEND
; (IT.BESE.ARNESI:ENSURE-LIST
; (TR.GEN.CORE.SERVER::SHELL.ARGS IT.BESE.ARNESI::SELF))
; (LIST (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::PATH))))
; --> PROGN EVAL-WHEN
; ==>
; (SB-PCL::%DEFMETHOD-EXPANDER TR.GEN.CORE.SERVER:RENDER-ARGUMENTS NIL
; ((IT.BESE.ARNESI::SELF TR.GEN.CORE.SERVER::RM))
; ((APPEND
; (IT.BESE.ARNESI:ENSURE-LIST
; (TR.GEN.CORE.SERVER::SHELL.ARGS
; IT.BESE.ARNESI::SELF))
; (LIST
; (TR.GEN.CORE.SERVER::S-V
; 'TR.GEN.CORE.SERVER::PATH)))))
;
; caught ERROR:
; (during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER RENDER-ARGUMENTS ...))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFCOMMAND FIND-FILE
; (TR.GEN.CORE.SERVER:DEFCOMMAND TR.GEN.CORE.SERVER::FIND-FILE
; (TR.GEN.CORE.SERVER:SHELL)
; ((TR.GEN.CORE.SERVER::PATTERN :ACCESSOR
; TR.GEN.CORE.SERVER::FIND-FILE.PATTERN
; :INITARG :PATTERN :HOST
; TR.GEN.CORE.SERVER:LOCAL :INITFORM
; (ERROR "must specify a filename pattern.")))
; (:DEFAULT-INITARGS :CMD
; (TR.GEN.CORE.SERVER:WHEREIS "find") :VERBOSE
; NIL))
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN EVAL-WHEN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-CTOR TR.GEN.CORE.SERVER::FIND-FILE)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-CTOR FIND-FILE))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-PRINT-OBJECT TR.GEN.CORE.SERVER::FIND-FILE)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-PRINT-OBJECT FIND-FILE))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-SLOT-LIFTS TR.GEN.CORE.SERVER::FIND-FILE)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-SLOT-LIFTS FIND-FILE))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFMETHOD RENDER-ARGUMENTS (FIND-FILE)
; (DEFMETHOD TR.GEN.CORE.SERVER:RENDER-ARGUMENTS
; ((IT.BESE.ARNESI::SELF TR.GEN.CORE.SERVER::FIND-FILE))
; (LIST "-name" (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::PATTERN)
; "-type" "f"))
; --> PROGN EVAL-WHEN
; ==>
; (SB-PCL::%DEFMETHOD-EXPANDER TR.GEN.CORE.SERVER:RENDER-ARGUMENTS NIL
; ((IT.BESE.ARNESI::SELF
; TR.GEN.CORE.SERVER::FIND-FILE))
; ((LIST "-name"
; (TR.GEN.CORE.SERVER::S-V
; 'TR.GEN.CORE.SERVER::PATTERN)
; "-type" "f")))
;
; caught ERROR:
; (during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER RENDER-ARGUMENTS ...))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
.
; in: DEFCOMMAND LN
; (TR.GEN.CORE.SERVER:DEFCOMMAND TR.GEN.CORE.SERVER::LN
; (TR.GEN.CORE.SERVER:SHELL)
; ((IT.BESE.ARNESI:SOURCE :ACCESSOR
; TR.GEN.CORE.SERVER::LN.SOURCE
; :INITARG :SOURCE :HOST
; TR.GEN.CORE.SERVER:LOCAL
; :INITFORM
; (ERROR
; "please specify source"))
; (TR.GEN.CORE.SERVER::TARGET :ACCESSOR
; TR.GEN.CORE.SERVER::LN.TARGET
; :INITARG :TARGET
; :HOST
; TR.GEN.CORE.SERVER:LOCAL
; :INITFORM
; (ERROR
; "please specify target")))
; (:DEFAULT-INITARGS :CMD
; (TR.GEN.CORE.SERVER:WHEREIS "ln")))
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN EVAL-WHEN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-CTOR TR.GEN.CORE.SERVER::LN)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-CTOR LN))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-PRINT-OBJECT TR.GEN.CORE.SERVER::LN)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-PRINT-OBJECT LN))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-SLOT-LIFTS TR.GEN.CORE.SERVER::LN)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-SLOT-LIFTS LN))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFMETHOD RENDER-ARGUMENTS (LN)
; (DEFMETHOD TR.GEN.CORE.SERVER:RENDER-ARGUMENTS
; ((IT.BESE.ARNESI::SELF TR.GEN.CORE.SERVER::LN))
; (LIST "-sf" (TR.GEN.CORE.SERVER::S-V 'IT.BESE.ARNESI:SOURCE)
; (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::TARGET)))
; --> PROGN EVAL-WHEN
; ==>
; (SB-PCL::%DEFMETHOD-EXPANDER TR.GEN.CORE.SERVER:RENDER-ARGUMENTS NIL
; ((IT.BESE.ARNESI::SELF TR.GEN.CORE.SERVER::LN))
; ((LIST "-sf"
; (TR.GEN.CORE.SERVER::S-V
; 'IT.BESE.ARNESI:SOURCE)
; (TR.GEN.CORE.SERVER::S-V
; 'TR.GEN.CORE.SERVER::TARGET))))
;
; caught ERROR:
; (during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER RENDER-ARGUMENTS ...))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFCOMMAND CHOWN
; (TR.GEN.CORE.SERVER:DEFCOMMAND TR.GEN.CORE.SERVER::CHOWN
; (TR.GEN.CORE.SERVER:SHELL)
; ((TR.GEN.CORE.SERVER::USER :ACCESSOR
; TR.GEN.CORE.SERVER::CHOWN.USER :INITARG
; :USER :HOST TR.GEN.CORE.SERVER:LOCAL
; :INITFORM NIL)
; (TR.GEN.CORE.SERVER:GROUP :ACCESSOR
; TR.GEN.CORE.SERVER::CHOWN.GROUP :INITARG
; :GROUP :HOST TR.GEN.CORE.SERVER:LOCAL
; :INITFORM NIL)
; (TR.GEN.CORE.SERVER::RECURSIVE :ACCESSOR
; TR.GEN.CORE.SERVER::CHOWN.RECURSIVE :INITARG
; :RECURSIVE :HOST TR.GEN.CORE.SERVER:LOCAL
; :INITFORM NIL)
; (TR.GEN.CORE.SERVER::PATH :ACCESSOR
; TR.GEN.CORE.SERVER::CHOWN.PATH :INITARG
; :PATH :HOST TR.GEN.CORE.SERVER:LOCAL
; :INITFORM
; (ERROR "Pathname must be specified.")))
; (:DEFAULT-INITARGS :CMD
; (TR.GEN.CORE.SERVER:WHEREIS "chown")))
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN EVAL-WHEN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-CTOR TR.GEN.CORE.SERVER::CHOWN)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-CTOR CHOWN))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-PRINT-OBJECT TR.GEN.CORE.SERVER::CHOWN)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-PRINT-OBJECT CHOWN))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-SLOT-LIFTS TR.GEN.CORE.SERVER::CHOWN)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-SLOT-LIFTS CHOWN))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFMETHOD RENDER-ARGUMENTS (CHOWN)
; (DEFMETHOD TR.GEN.CORE.SERVER:RENDER-ARGUMENTS
; ((IT.BESE.ARNESI::SELF TR.GEN.CORE.SERVER::CHOWN))
; (LET ((TR.GEN.CORE.SERVER::UG (CONCATENATE 'STRING # ":" #)))
; (IF (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::RECURSIVE)
; (LIST TR.GEN.CORE.SERVER::UG "-R"
; (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::PATH))
; (LIST TR.GEN.CORE.SERVER::UG
; (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::PATH)))))
; --> PROGN EVAL-WHEN
; ==>
; (SB-PCL::%DEFMETHOD-EXPANDER TR.GEN.CORE.SERVER:RENDER-ARGUMENTS NIL
; ((IT.BESE.ARNESI::SELF
; TR.GEN.CORE.SERVER::CHOWN))
; ((LET ((TR.GEN.CORE.SERVER::UG #))
; (IF (TR.GEN.CORE.SERVER::S-V
; 'TR.GEN.CORE.SERVER::RECURSIVE)
; (LIST TR.GEN.CORE.SERVER::UG "-R" #)
; (LIST TR.GEN.CORE.SERVER::UG #)))))
;
; caught ERROR:
; (during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER RENDER-ARGUMENTS ...))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFMETHOD RUN (CHOWN)
; (DEFMETHOD TR.GEN.CORE.SERVER:RUN
; ((IT.BESE.ARNESI::SELF TR.GEN.CORE.SERVER::CHOWN))
; (WHEN
; (AND (NULL (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::USER))
; (NULL (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER:GROUP)))
; (ERROR "Username and group can't be empty at the same time."))
; (CALL-NEXT-METHOD))
; --> PROGN EVAL-WHEN
; ==>
; (SB-PCL::%DEFMETHOD-EXPANDER TR.GEN.CORE.SERVER:RUN NIL
; ((IT.BESE.ARNESI::SELF
; TR.GEN.CORE.SERVER::CHOWN))
; ((WHEN (AND (NULL #) (NULL #))
; (ERROR
; "Username and group can't be empty at the same time."))
; (CALL-NEXT-METHOD)))
;
; caught ERROR:
; (during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER RUN ...))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFCOMMAND CHMOD
; (TR.GEN.CORE.SERVER:DEFCOMMAND TR.GEN.CORE.SERVER::CHMOD
; (TR.GEN.CORE.SERVER:SHELL)
; ((TR.GEN.CORE.SERVER::MODE :ACCESSOR
; TR.GEN.CORE.SERVER::CHMOD.MODE :INITARG
; :MODE :HOST TR.GEN.CORE.SERVER:LOCAL
; :INITFORM (ERROR "Please specify mode."))
; (TR.GEN.CORE.SERVER::PATH :ACCESSOR
; TR.GEN.CORE.SERVER::CHMOD.PATH :INITARG
; :PATH :HOST TR.GEN.CORE.SERVER:LOCAL
; :INITFORM (ERROR "Please specify path."))
; (TR.GEN.CORE.SERVER::RECURSIVE :ACCESSOR
; TR.GEN.CORE.SERVER::CHMOD.RECURSIVE :INITARG
; :RECURSIVE :HOST TR.GEN.CORE.SERVER:LOCAL
; :INITFORM NIL))
; (:DEFAULT-INITARGS :CMD
; (TR.GEN.CORE.SERVER:WHEREIS "chmod")))
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN EVAL-WHEN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-CTOR TR.GEN.CORE.SERVER::CHMOD)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-CTOR CHMOD))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-PRINT-OBJECT TR.GEN.CORE.SERVER::CHMOD)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-PRINT-OBJECT CHMOD))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-SLOT-LIFTS TR.GEN.CORE.SERVER::CHMOD)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-SLOT-LIFTS CHMOD))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFMETHOD RENDER-ARGUMENTS (CHMOD)
; (DEFMETHOD TR.GEN.CORE.SERVER:RENDER-ARGUMENTS
; ((IT.BESE.ARNESI::SELF TR.GEN.CORE.SERVER::CHMOD))
; (IF (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::RECURSIVE)
; (LIST (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::MODE) "-R"
; (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::PATH))
; (LIST (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::MODE)
; (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::PATH))))
; --> PROGN EVAL-WHEN
; ==>
; (SB-PCL::%DEFMETHOD-EXPANDER TR.GEN.CORE.SERVER:RENDER-ARGUMENTS NIL
; ((IT.BESE.ARNESI::SELF
; TR.GEN.CORE.SERVER::CHMOD))
; ((IF (TR.GEN.CORE.SERVER::S-V
; 'TR.GEN.CORE.SERVER::RECURSIVE)
; (LIST
; (TR.GEN.CORE.SERVER::S-V
; 'TR.GEN.CORE.SERVER::MODE)
; "-R"
; (TR.GEN.CORE.SERVER::S-V
; 'TR.GEN.CORE.SERVER::PATH))
; (LIST
; (TR.GEN.CORE.SERVER::S-V
; 'TR.GEN.CORE.SERVER::MODE)
; (TR.GEN.CORE.SERVER::S-V
; 'TR.GEN.CORE.SERVER::PATH)))))
;
; caught ERROR:
; (during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER RENDER-ARGUMENTS ...))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFCOMMAND MKDIR
; (TR.GEN.CORE.SERVER:DEFCOMMAND TR.GEN.CORE.SERVER::MKDIR
; (TR.GEN.CORE.SERVER:SHELL)
; ((TR.GEN.CORE.SERVER::PATH :ACCESSOR
; TR.GEN.CORE.SERVER::MKDIR.PATH :INITARG
; :PATH :HOST TR.GEN.CORE.SERVER:LOCAL
; :INITFORM (ERROR "Please specify :path")))
; (:DEFAULT-INITARGS :CMD
; (TR.GEN.CORE.SERVER:WHEREIS "mkdir")))
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN EVAL-WHEN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-CTOR TR.GEN.CORE.SERVER::MKDIR)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-CTOR MKDIR))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-PRINT-OBJECT TR.GEN.CORE.SERVER::MKDIR)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-PRINT-OBJECT MKDIR))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-SLOT-LIFTS TR.GEN.CORE.SERVER::MKDIR)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-SLOT-LIFTS MKDIR))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFMETHOD RENDER-ARGUMENTS (MKDIR)
; (DEFMETHOD TR.GEN.CORE.SERVER:RENDER-ARGUMENTS
; ((IT.BESE.ARNESI::SELF TR.GEN.CORE.SERVER::MKDIR))
; (APPEND (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::ARGS)
; (LIST (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::PATH))))
; --> PROGN EVAL-WHEN
; ==>
; (SB-PCL::%DEFMETHOD-EXPANDER TR.GEN.CORE.SERVER:RENDER-ARGUMENTS NIL
; ((IT.BESE.ARNESI::SELF
; TR.GEN.CORE.SERVER::MKDIR))
; ((APPEND
; (TR.GEN.CORE.SERVER::S-V
; 'TR.GEN.CORE.SERVER::ARGS)
; (LIST
; (TR.GEN.CORE.SERVER::S-V
; 'TR.GEN.CORE.SERVER::PATH)))))
;
; caught ERROR:
; (during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER RENDER-ARGUMENTS ...))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFCOMMAND MV
; (TR.GEN.CORE.SERVER:DEFCOMMAND TR.GEN.CORE.SERVER::MV
; (TR.GEN.CORE.SERVER:SHELL)
; ((IT.BESE.ARNESI:SOURCE :ACCESSOR
; TR.GEN.CORE.SERVER::MV.SOURCE
; :INITARG :SOURCE :HOST
; TR.GEN.CORE.SERVER:LOCAL
; :INITFORM
; (ERROR
; "Please specify :source"))
; (TR.GEN.CORE.SERVER::TARGET :ACCESSOR
; TR.GEN.CORE.SERVER::MV.TARGET
; :INITARG :TARGET
; :HOST
; TR.GEN.CORE.SERVER:LOCAL
; :INITFORM
; (ERROR
; "Please specify :target")))
; (:DEFAULT-INITARGS :CMD
; (TR.GEN.CORE.SERVER:WHEREIS "mv")))
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN EVAL-WHEN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-CTOR TR.GEN.CORE.SERVER::MV)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-CTOR MV))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-PRINT-OBJECT TR.GEN.CORE.SERVER::MV)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-PRINT-OBJECT MV))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-SLOT-LIFTS TR.GEN.CORE.SERVER::MV)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-SLOT-LIFTS MV))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFMETHOD RENDER-ARGUMENTS (MV)
; (DEFMETHOD TR.GEN.CORE.SERVER:RENDER-ARGUMENTS
; ((IT.BESE.ARNESI::SELF TR.GEN.CORE.SERVER::MV))
; (APPEND (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::ARGS)
; (LIST (TR.GEN.CORE.SERVER::S-V 'IT.BESE.ARNESI:SOURCE)
; (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::TARGET))))
; --> PROGN EVAL-WHEN
; ==>
; (SB-PCL::%DEFMETHOD-EXPANDER TR.GEN.CORE.SERVER:RENDER-ARGUMENTS NIL
; ((IT.BESE.ARNESI::SELF TR.GEN.CORE.SERVER::MV))
; ((APPEND
; (TR.GEN.CORE.SERVER::S-V
; 'TR.GEN.CORE.SERVER::ARGS)
; (LIST
; (TR.GEN.CORE.SERVER::S-V
; 'IT.BESE.ARNESI:SOURCE)
; (TR.GEN.CORE.SERVER::S-V
; 'TR.GEN.CORE.SERVER::TARGET)))))
;
; caught ERROR:
; (during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER RENDER-ARGUMENTS ...))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFCOMMAND WGET
; (TR.GEN.CORE.SERVER:DEFCOMMAND TR.GEN.CORE.SERVER::WGET
; (TR.GEN.CORE.SERVER:SHELL)
; ((IT.BESE.ARNESI:SOURCE :ACCESSOR
; TR.GEN.CORE.SERVER::WGET.SOURCE
; :INITARG :SOURCE :HOST
; TR.GEN.CORE.SERVER:LOCAL
; :INITFORM
; (ERROR
; "please specify source"))
; (TR.GEN.CORE.SERVER::TARGET :ACCESSOR
; TR.GEN.CORE.SERVER::WGET.TARGET
; :INITARG :TARGET
; :HOST
; TR.GEN.CORE.SERVER:LOCAL
; :INITFORM
; (ERROR
; "please specify target")))
; (:DEFAULT-INITARGS :CMD
; (TR.GEN.CORE.SERVER:WHEREIS "wget") :WAIT T))
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN EVAL-WHEN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-CTOR TR.GEN.CORE.SERVER::WGET)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-CTOR WGET))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; --> TR.GEN.CORE.SERVER:DEFCLASS+ PROGN
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-PRINT-OBJECT TR.GEN.CORE.SERVER::WGET)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-PRINT-OBJECT WGET))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; ==>
; (TR.GEN.CORE.SERVER::DEFCLASS+-SLOT-LIFTS TR.GEN.CORE.SERVER::WGET)
;
; caught ERROR:
; (during macroexpansion of (DEFCLASS+-SLOT-LIFTS WGET))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFMETHOD RENDER-ARGUMENTS (WGET)
; (DEFMETHOD TR.GEN.CORE.SERVER:RENDER-ARGUMENTS
; ((IT.BESE.ARNESI::SELF TR.GEN.CORE.SERVER::WGET))
; (LIST "--output-document"
; (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::TARGET)
; (TR.GEN.CORE.SERVER::S-V 'IT.BESE.ARNESI:SOURCE)))
; --> PROGN EVAL-WHEN
; ==>
; (SB-PCL::%DEFMETHOD-EXPANDER TR.GEN.CORE.SERVER:RENDER-ARGUMENTS NIL
; ((IT.BESE.ARNESI::SELF
; TR.GEN.CORE.SERVER::WGET))
; ((LIST "--output-document"
; (TR.GEN.CORE.SERVER::S-V
; 'TR.GEN.CORE.SERVER::TARGET)
; (TR.GEN.CORE.SERVER::S-V
; 'IT.BESE.ARNESI:SOURCE))))
;
; caught ERROR:
; (during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER RENDER-ARGUMENTS ...))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
; in: DEFMETHOD RUN-SUDO (SHELL)
; (DEFMETHOD TR.GEN.CORE.SERVER::RUN-SUDO
; ((IT.BESE.ARNESI::SELF TR.GEN.CORE.SERVER:SHELL))
; (FLET ((TR.GEN.CORE.SERVER::ENSURE-CMD (TR.GEN.CORE.SERVER::CMD)
; (COND # #)))
; (IF (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::VERBOSE)
; (FORMAT T "Executing command: sudo ~A ~{~A~^ ~}~%"
; (TR.GEN.CORE.SERVER::S-V 'TR.GEN.CORE.SERVER::CMD)
; (TR.GEN.CORE.SERVER:RENDER-ARGUMENTS IT.BESE.ARNESI::SELF)))
; (SETF (TR.GEN.CORE.SERVER::SHELL.PROCESS IT.BESE.ARNESI::SELF)
; (RUN-PROGRAM # # :WAIT NIL :INPUT # :OUTPUT # :ERROR :OUTPUT))
; (IF (TR.GEN.CORE.SERVER::SHELL.WAIT IT.BESE.ARNESI::SELF)
; (TR.GEN.CORE.SERVER::WAIT-PROCESS IT.BESE.ARNESI::SELF)
; (VALUES))))
; --> PROGN EVAL-WHEN
; ==>
; (SB-PCL::%DEFMETHOD-EXPANDER TR.GEN.CORE.SERVER::RUN-SUDO NIL
; ((IT.BESE.ARNESI::SELF
; TR.GEN.CORE.SERVER:SHELL))
; ((FLET ((TR.GEN.CORE.SERVER::ENSURE-CMD #
; #))
; (IF (TR.GEN.CORE.SERVER::S-V
; 'TR.GEN.CORE.SERVER::VERBOSE)
; (FORMAT T
; "Executing command: sudo ~A ~{~A~^ ~}~%"
; # #))
; (SETF # #)
; (IF (TR.GEN.CORE.SERVER::SHELL.WAIT
; IT.BESE.ARNESI::SELF)
; (TR.GEN.CORE.SERVER::WAIT-PROCESS
; IT.BESE.ARNESI::SELF)
; (VALUES)))))
;
; caught ERROR:
; (during macroexpansion of (SB-PCL::%DEFMETHOD-EXPANDER RUN-SUDO ...))
; Invalid initialization arguments:
; :READERS, :WRITERS
; in call for class #<STANDARD-CLASS CLASS+-EFFECTIVE-SLOT-DEFINITION>.
; See also:
; The ANSI Standard, Section 7.1.2
Best regards,
Wolfgang
Evrim Ulu
Dec 28, 2013, 7:48:50 AM12/28/13
to core-...@googlegroups.com
Ok, Wolfgang, np.
I see that sbcl has evolved and removed readers/writers slots from its
effective-slot-definition.
I'll try to find a workaround.
evrim.
I see that sbcl has evolved and removed readers/writers slots from its
effective-slot-definition.
I'll try to find a workaround.
evrim.
Evrim Ulu
Dec 28, 2013, 8:57:00 AM12/28/13
to core-...@googlegroups.com
Ok Mr. Mederle,
You should be good to go now, please refetch the installer from:
http://labs.core.gen.tr/repos/core-server-installer.tar.gz
let me know if something breaks.
evrim.
You should be good to go now, please refetch the installer from:
http://labs.core.gen.tr/repos/core-server-installer.tar.gz
let me know if something breaks.
evrim.
Wolfgang Mederle
Dec 28, 2013, 11:16:27 AM12/28/13
to core-...@googlegroups.com
Thank you, good Sir, I've downloaded and shall attempt an installation
very soon. I'll report to the group upon completion.
Cheers,
Wolfgang
very soon. I'll report to the group upon completion.
Cheers,
Wolfgang
Reply all
Reply to author
Forward
0 new messages