Michel's questions

尽管我已经在 Linux 上使用 Common Lisp 一段时间了，但我在 Mac 上使用 SBCL 的经验仍然几乎为零。

我刚刚使用自制程序在 Mac (Sonoma 14.2.1) 上安装了 SBCL。

我现在有：SBCL 2.4.1

我在以下测试中遇到了一个问题。

这是测试程序：

me % cat test.lisp
#!/opt/homebrew/bin/sbcl --script

(with-input-from-string (strm (car *args*)) (setf ArgOne (read strm)))
(with-input-from-string (strm (cadr *args*)) (setf ArgTwo (read strm)))

(format "Argument One = ~a~%" ArgOne)
(format "Argument Two = ~a~%" ArgTwo)
me % 

当这个相同的程序（除了第一行）在 debian 上的 clisp 下运行时，如下所示：

me % ./test.lisp 11 23

它会产生：

Argument One = 11
Argument Two = 23

正如我所料。

但是当在 mac 上的 sbcl 下运行时，如下所示：

me % ./test.lisp 11 23

它产生了这个意想不到的输出：

; file: /...././test.lisp
; in: WITH-INPUT-FROM-STRING (STRM (CAR *ARGS*))
;     (CAR *ARGS*)
; 
; caught WARNING:
;   undefined variable: COMMON-LISP-USER::*ARGS*

;     (SETF ARGONE (READ STRM))
; 
; caught WARNING:
;   undefined variable: COMMON-LISP-USER::ARGONE
; 
; compilation unit finished
;   Undefined variables:
;     *ARGS* ARGONE
;   caught 2 WARNING conditions
Unhandled UNBOUND-VARIABLE in thread #<SB-THREAD:THREAD "main thread" RUNNING
                                        {7005550003}>:
  The variable *ARGS* is unbound.

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {7005550003}>
0: ((LAMBDA NIL :IN "/..../test.lisp"))
1: (SB-INT:SIMPLE-EVAL-IN-LEXENV (WITH-INPUT-FROM-STRING (STRM (CAR *ARGS*)) (SETF ARGONE (READ STRM)))     #<NULL-LEXENV>)
2: (EVAL-TLF (WITH-INPUT-FROM-STRING (STRM (CAR *ARGS*)) (SETF ARGONE (READ STRM))) 0 NIL)
3: ((LABELS SB-FASL::EVAL-FORM :IN SB-INT:LOAD-AS-SOURCE) (WITH-INPUT-FROM-STRING (STRM (CAR *ARGS*))     (SETF ARGONE (READ STRM))) 0)
4: ((LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-INT:LOAD-AS-SOURCE)     (WITH-INPUT-FROM-STRING (STRM (CAR *ARGS*)) (SETF ARGONE (READ STRM))) :CURRENT-INDEX 0)
5: (SB-C::%DO-FORMS-FROM-INFO #<FUNCTION (LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS)     :IN SB-INT:LOAD-AS-SOURCE) {1005F0E1B}> #<SB-C::SOURCE-INFO {70055166F3}> SB-C::INPUT-ERROR-IN-LOAD)
6: (SB-INT:LOAD-AS-SOURCE #<SB-SYS:FD-STREAM for "file /...././test.lisp" {7005510D73}> :VERBOSE NIL    :PRINT NIL :CONTEXT "loading")
7: ((LABELS SB-FASL::LOAD-STREAM-1 :IN LOAD) #<SB-SYS:FD-STREAM for "file /...././test.lisp" {7005510D73}   > NIL)
8: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<FUNCTION (LABELS SB-FASL::LOAD-STREAM-1 :IN LOAD) {1005F09EB}>     #<SB-SYS:FD-STREAM for "file /...././test.lisp" {7005510D73}> NIL #<SB-SYS:FD-STREAM for "file /...././   test.lisp" {7005510D73}>)
9: (LOAD #<SB-SYS:FD-STREAM for "file /...././test.lisp" {7005510D73}> :VERBOSE NIL :PRINT NIL    :IF-DOES-NOT-EXIST :ERROR :EXTERNAL-FORMAT :DEFAULT)
10: ((FLET SB-IMPL::LOAD-SCRIPT :IN SB-IMPL::PROCESS-SCRIPT) #<SB-SYS:FD-STREAM for "file /...././test.   lisp" {7005510D73}>)
11: ((FLET SB-UNIX::BODY :IN SB-IMPL::PROCESS-SCRIPT))
12: ((FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-IMPL::PROCESS-SCRIPT))
13: (SB-IMPL::PROCESS-SCRIPT "./test.lisp")
14: (SB-IMPL::TOPLEVEL-INIT)
15: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
16: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP))
17: (SB-IMPL::%START-LISP)

unhandled condition in --disable-debugger mode, quitting
me % 

显然存在一些我不知道的与我应该如何使用 SBCL 相关的问题。

任何 lisp 专家或具有 SBCL 知识的更好的人都将非常感激告诉我应该如何做事情。

我正在使用 NextJS/React 启动一个简单的测试应用程序。

下面是代码：

Board.tsx 文件内容：

import './Board.css';

export default function Board() {
    return <div className="board">
    <Row/>
    <Row/>
    <Row/>
  </div>
} /* End of Board */

function Row() {
    return <div className="row">
    <Cell/>
    <Cell/>
    <Cell/>
  </div>
} /* End of Row */

function Cell() {
    return <div className="cell"/>
} /* End of Cell */

以及 Board.css 文件内容：

.cell {
  width: 3rem;
  height: 3rem;
  background-color: rgb(255, 255, 0);
  border-width: 2px;
  border-color: rgb(55, 55, 55);
  margin: 11%;
}

.row {
  display: flex;
  flex-direction: row;
}

.board {
  display: flex;
  flex-direction: column;
}

顶部是 app/page.tsx 文件：

import Image from 'next/image'
import Board from './components/Board'

export default function Home() {
  return (
    <main className="flex min-h-screen flex-col items-center justify-between p-24">
      X4C APP
      <Board/>
    </main>
  )
}

以下是运行应用程序时 Web 浏览器中显示的内容：

最后我有一个问题。当 css 规定单元格组件的宽度和高度固定时，为什么我们看不到完美的黄色方块？

我可以通过实验看到，如果我删除这两个块

.row {...}
.board {...}

从 Board.css 文件中，我得到了完美的正方形。

那么是什么导致这两个区块出现这个问题呢？

当将 firebase CLI 与实时数据库结合使用时，我可以使用如下命令来读取集合：

 % firebase database:get DB_Path

但我找不到一种方法来只选择我需要的文档。

我很难相信这是不可能的。

就像是：

 % firebase database:get DB_Path where (name='Biden Joe')

有正确的语法来做到这一点吗？

我需要为 PostGres 数据库编写 SQL 查询。目标是根据表的内容创建视图。

这是我的起始表：

Rank  Value
 1      4
 2      5
 3      8
 4      11
 5      19
 6      32
 7      55

这是我想要构建的视图：

Rank  Value  SumUpTo
 1      4       4
 2      5       9
 3      8       17
 4      11      28
 5      19      47
 6      32      79
 7      55      134

Rank 和 Value 列只是从原始表中复制的。SumUpTo 列是通过将原始表中从排名 1 到当前排名的所有值相加来计算的。

我已经尝试过这些类型的查询，但都失败了：

CREATE VIEW myview AS SELECT rank,value,(SELECT SUM(value) FROM mytable WHERE (rank<rank)) as SumUpTo FROM mytable;
CREATE VIEW myview AS SELECT rank,value,(SELECT SUM(value) FROM mytable WHERE (rank<mytable.rank)) as SumUpTo FROM mytable;

编写查询以获得我想要的结果的正确方法是什么？

我正在检查 CORS 的工作原理，并回顾 Node.JS 应用程序中客户端-服务器概念的基础知识。我有一个问题。

这是我的服务器代码：

const express = require('express'),
      server = express(),
      cors = require('cors');

server.use(cors({origin: "http://localhost:3000"}));

server.get('/json-data', (req, res) => {
  res.status(200).send([
            {order:10,value:29},
            {order:100,value:541},
            {order:1000,value:7919}])
});

server.listen(8888);

通过将 Web 浏览器指向此 URL：

http://localhost:8888/json-data

我可以确认服务器正在按预期工作，返回包含 3 个项目的数组。

我的问题与客户有关。

当我为客户端使用以下代码时：

'use client'

function Receiver() {
  fetch("http://localhost:8888/json-data")
  .then(res => res.json())
  .then(data => {
    console.log('Receiver-0:'+JSON.stringify(data[0]))
    console.log('Receiver-1:'+JSON.stringify(data[1]))
    console.log('Receiver-2:'+JSON.stringify(data[2]))
  })

  return(
    <div>
      <h1>Hello Receiver !!</h1>
    </div>
  )
}

我在网络浏览器中得到了我期望的答案：

Hello Receiver !!

我在日志中看到了 3 个预期项目（即 Web 开发人员工具控制台）。

另一方面，如果我为客户端使用此代码：

async function Receiver() {
  const response = await fetch("http://localhost:8888/json-data");
  const primes = await response.json();
  const data = JSON.stringify(primes)
  return <h1>{data}</h1>;
}

export default Receiver;

我在网络浏览器中得到这个答案：

[{"order":10,"value":29},{"order":100,"value":541}]

为什么我没有从服务器获得这三个项目，而只获得两个项目？

以上面的两个版本的客户端为起点，有没有办法放下我的代码，以便我在答案中收到服务器提供的所有项目？

作为额外的信息，客户端的使用方式如下：

import Receiver from './components/receiver'

export default function Home() {
  return (
    <main className="flex min-h-screen flex-col items-center justify-between p-24">
      <div>
        <Receiver />
      </div>
    </main>
  )
}

我还为客户端尝试了下面的代码（基于此处找到的代码：https ://nextjs.org/docs/app/building-your-application/data-fetching/fetching-caching-and-revalidating#fetching-服务器上的数据与提取）

async function getData() {
  const res = await fetch('http://localhost:8888/json-data')

  if (!res.ok) {
    throw new Error('Failed to fetch data')
  }

  return res.json()
}

export default async function Receiver() {
  const data = await getData()

  return <main>{JSON.stringify(data)}</main>
}

但我仍然得到与之前试验相同的结果。在网络浏览器中的这个答案：

[{"order":10,"value":29},{"order":100,"value":541}]

我是这门语言的初学者：GForth。

有经验的人可以告诉我下面代码中的问题是什么吗？

这是一个定义。

: collatzcount
variable count
0 count !
{ ini } ini
begin dup 1 <> while dup . syr repeat .
count ? ;
\ redefined collatzcount   ok

此时显然没有什么问题。那么让我们尝试一下：

1 collatzcount

输出

:213: Attempt to use zero-length string as a name
1 collatzcount>>><<<
Backtrace:
$7F21F04AB710 throw
$7F21F04B0008 name-too-short?
$7F21F04B1990 header
$7F21F04B1A00 Create
$7F21F04FD460 Variable

这个神秘的“尝试使用零长度字符串作为名称”是什么？

万一有人想知道，这是syr的定义：

: syr dup 2 mod 0 = if 2 / else 3 * 1 + endif ;

但这可能与问题无关。