Skip to content

Commit

Permalink
Update to CCL 1.12.2
Browse files Browse the repository at this point in the history
  • Loading branch information
asmaloney committed Aug 9, 2023
1 parent 680aa24 commit f39938f
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 6 deletions.
4 changes: 1 addition & 3 deletions cmd/env.go
Original file line number Diff line number Diff line change
Expand Up @@ -23,8 +23,7 @@ const (
ACTR_VERSION = "7.27.7"

// Clozure Common Lisp release version from https://github.com/Clozure/ccl
CCL_VERSION = "1.12.1"
CCL_VERSION_WIN = "1.12" // CCL version 1.12.1 is not compressed properly, so try an older version
CCL_VERSION = "1.12.2"
)

var (
Expand Down Expand Up @@ -204,7 +203,6 @@ func setupLisp() (err error) {

if system == "windows" {
extension = "zip"
version = CCL_VERSION_WIN
}

dirName := fmt.Sprintf("ccl-%s-%sx86", version, system)
Expand Down
8 changes: 5 additions & 3 deletions framework/vanilla_actr/vanilla_actr.go
Original file line number Diff line number Diff line change
Expand Up @@ -5,6 +5,7 @@ package vanilla_actr
import (
"fmt"
"os"
"path/filepath"
"regexp"
"runtime"
"strings"
Expand Down Expand Up @@ -716,16 +717,17 @@ func (v VanillaACTR) createRunFile(modelFile string) (outputFile string, err err
return
}

v.Writeln(`(load "%s/actr/load-single-threaded-act-r.lisp")`, v.envPath)
v.Writeln(`(load "%s")`, modelFile)
path := filepath.Join(v.envPath, "actr", "load-single-threaded-act-r.lisp")
v.Writeln(`(load "%s")`, filepath.ToSlash(path))
v.Writeln(`(load "%s")`, filepath.ToSlash(modelFile))

// TODO: We should be able to set this somewhere.
// 10.0 is an arbitrary length of time.
v.Writeln(`(run 10.0)`)

outputFile = fmt.Sprintf("%s_run.lisp", v.modelName)
if v.tmpPath != "" {
outputFile = fmt.Sprintf("%s/%s", v.tmpPath, outputFile)
outputFile = filepath.Join(v.tmpPath, outputFile)
}

err = v.WriteFile(outputFile)
Expand Down

0 comments on commit f39938f

Please sign in to comment.